Select Code to Download

sub Foo::isa { die "bla" };
my $ref = bless {}, 'Foo';
...
else {
    print "An object\n";
}

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

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