use Test::MockModule;

my $foo = Foo->new();

my $module = new Test->MockModule('Bar');
$module->mock(get_param => sub {return 42});

$foo->method_that_calls_get_param();