Select Code to Download

my $foo = Foo->new;
print "foo is".($foo->isa( 'Bar' ) ? '' : ' _not_')." a Bar\n";
...
package Foo;
use base Bar;
sub new { bless {},shift }