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