package Animal::Duck;

use base qw(Animal Class::Accessor);

__PACKAGE__->follow_best_practice();
__PACKAGE__->mk_ro_accessors(qw(name color));

sub new {

    my $class = shift;

    my $self = $class->SUPER::new(@_);

    $self->{sound} = '"quack quack!"';
    $self->{color} = 'I am white damn it!';

    return $self;

}

1;