Select Code to Download

package Mule;
our @ISA = qw(Horse Donkey);
...
    print "The mule kicks!\n";
    $self->SUPER::kick(@_);
}

package Bird;
use Dragonfly;
...
    package Dragonfly;
    sub divebomb { shift->SUPER::divebomb(@_) }$self->Donkey::speak(@_
+);" and "shift->SUPER::divebomb(@_);".
}