{  package MockFoo;
   sub new { bless {}, shift }
   sub rarely_returns_42 { return 42 }
}
my $mock = MockFoo->new;

##</code><code>##

use Test::MockObject;
my $mock =
  Test::MockObject->new->set_always(  rarely_returns_42 => 42 );