package Animal; use Attribute::Abstract; use strict; use warnings; sub new { my $class = shift; # hash reference my $self = shift; bless $self, $class; return $self; } sub get_sound : Abstract; sub get_color : Abstract; 1;