Select Code to Download

use warnings;
use strict;
...
is $modify_sub->called, 1, "mocked sub called ok";

done_testing();

before mocked sub called...

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