sub Foo::isa { die "bla" };
my $ref = bless {}, 'Foo';

eval { $ref->isa() };
if ($@) {
    print "Not an object\n";
}
else {
    print "An object\n";
}