Help for this page

Select Code to Download


  1. or download this
    package A;

...
sub isa {
  return $_[1] eq 'A' or $_[0]->SUPER::isa(@_);
}
  2. or download this
    package A;

...

use vars qw(@ISA);
@ISA = qw(A B);
  3. or download this
    package C;

...
sub isa {
  return $_[1] eq 'A';
}