use strict;
use warnings;

use Test::MockModule;

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

require Bar;
my $bar = Bar->new();
$bar->bar();

##</code><code>##

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();