Select Code to Download

# Dog ISA Animal

my $german_sheperd = new Dog(BIG, FURRY);
my $collie = new Dog(MEDIUM, SHORT_HAIRED);
my $poodle = new Dog(SMALL, GOOFY);

# Dog ISA Animal
# Dog::Poodle ISA Dog
...
my $spot = new Dog::Poodle('spot');
my $fido = new Dog::Collie('fido');
my $stray = new Dog();