if (eval { $obj->isa("Foo") }) {
      print "It's a foo!";
   }