3 use Test::More tests => 6;
8 sub eat { 'delicious' }
15 -alias => { eat => 'drink' },
16 -excludes => [qw(eat)],
31 -alias => { eat => 'drink' },
36 ok(Dog->can('drink'));
39 is($d->drink(), 'delicious');
40 is($d->eat(), 'delicious');
43 is $t->drink(), 'delicious';
44 is $t->eat(), 'good!';