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