Select Code to Download

package Cow;
use base qw(Animal);
__PACKAGE__->makes_sound_like('moo');
...

package Animal;
sub makes_sound_like {
...
    $sound_registry{$sound} = $class;
  }
}