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

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

##</code><code>##

eval { ... }
if ($@) { ... }

##</code><code>##

if (eval {...; 1}){ ... }