Select Code to Download

package Animal;
package Sheep; @ISA = ('Animal');
package Cow; @ISA = ('Animal');
package Pig; @ISA = ('Animal');

sub make_animal
{
...
    if ($sound =~ /moo/)  { return Cow->new; }
    if ($sound =~ /oink/) { return Pig->new; }
}

package Sheep;

...
   our %::animal_sounds;
   $::animal_sounds{'baa'} = 'Sheep';
}

sub make_animal
{
...
       }
    }
}