13 push @phonograph, 'footsteps',
17 push @phonograph, 'quack';
24 push @phonograph, 'honk';
29 use Moose::Util::TypeConstraints;
31 my $ducktype = duck_type 'DuckType' => qw(walk quack);
39 my $t = DucktypeTest->new(duck => Duck->new);
41 is_deeply([splice @phonograph], ['quack']);
44 is_deeply([splice @phonograph], ['footsteps']);