sub mock_isa { my ($class) = @_; isa => sub { $_[1] eq $class } }