Help for this page

Select Code to Download


  1. or download this
    package Mule;
    our @ISA = qw(Horse Donkey);
    ...
        print "The mule kicks!\n";
        $self->SUPER::kick(@_);
    }
    
  2. or download this
    package Bird;
    use Dragonfly;
    ...
        package Dragonfly;
        sub divebomb { shift->SUPER::divebomb(@_) }$self->Donkey::speak(@_
    +);" and "shift->SUPER::divebomb(@_);".
    }