5 use Test::More tests => 2;
14 push @phonograph, 'footsteps',
18 push @phonograph, 'quack';
25 push @phonograph, 'honk';
30 use Moose::Util::TypeConstraints;
32 my $ducktype = duck_type 'DuckType' => qw(walk quack);
40 my $t = DucktypeTest->new(duck => Duck->new);
42 is_deeply([splice @phonograph], ['quack']);
45 is_deeply([splice @phonograph], ['footsteps']);