use strict;
use warnings;

use Test::MockModule;
use Bar;

my $mock = Test::MockModule->new('Bar');
$mock->mock('foo', sub {print "Successfully mocked!\n";});
     
my $bar = Bar->new();
$bar->bar();