Help for this page

Select Code to Download


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