# Dog ISA Animal

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

##</code><code>##

# Dog ISA Animal
# Dog::Poodle ISA Dog
# Dog::Collie ISA Dog

my $fluffy = new Dog::Poodle('fluffy');
my $spot = new Dog::Poodle('spot');
my $fido = new Dog::Collie('fido');
my $stray = new Dog();