use strict;
use warnings;
use Animal::Dog;
use Animal::Duck;

my $dog  = Animal::Dog->new(  { name => 'Atila' } );
my $duck = Animal::Duck->new( { name => 'Donald' } );

print $dog->get_name(),  ' says ', $dog->get_sound(),  "\n";

my @missing = Animal::Duck->missing_methods();
warn 'Animal::Duck forgot to implement ' . join ', ', @missing if @missing;

print $duck->get_name(), ' says ', $duck->get_sound(), "\n";