package Animal;

use Moose::Role;


has 'name' => (is => 'rw');
has 'color' => (is => 'rw', default => sub { shift->default_colour });

requires 'default_colour';


sub speak
{
    my $self = shift;
    print $self->name, " goes ", $self->sound, "\n";
}

# sub sound { confess shift, " should have defined sound!"; }

requires 'sound';

no Moose::Role;


1;