Select Code to Download

package Bird;
use Dragonfly;
...
    package Dragonfly;
    sub divebomb { shift->SUPER::divebomb(@_)}
}

sub speak {
    my $self = shift;
    print "The mule speaks!\n";
    $self->Donkey::speak(@_);
}