Help for this page

Select Code to Download


  1. or download this
    package SwimmingFlyingThing;
use AbstractClass qw(swim fly);
  2. or download this
    pacakage AbstractBird;
use SwimmingFlyingThing;
use AbstractClass;
@ISA = 'SimmingFlyingThing';
sub fly { print "Flap Flap Flap" }
  3. or download this
    package Duck;
@ISA = 'AbstractBird';
sub swim { print "Paddle paddle paddle" }
sub new { ... }