use Test::More tests => 2; isa_ok(my $o = DeepThought->new, 'DeepThought'); { my $ok; no warnings; local *DeepThought::bar = sub { $ok = 1 if $_[1] == 42 }; use warnings; $o->foo(); ok($ok, 'foo called bar'); };