my $person = stub( isa => sub { $_[1] !~ /Test/ } );