Select Code to Download

package A::Class;

sub some_method
...
    $object->some_other_method();
    $object->some_method_or_other();
}

use Test::More 'no_plan';

use Test::MockObject;
...
     ->set_true( 'some_method_or_other' );

$a->some_method( $mock );