before mocked sub called...

$VAR1 = bless( {}, 'Thing' );


after  mocked sub called...

$VAR1 = bless( {
                 'modified' => 'modified by mocked sub'
               }, 'Thing' );


ok 1 - obj was modified ok
ok 2 - obj was changed by mock
ok 3 - mocked sub called ok
1..3