use strict;
use warnings;
-use Test::More tests => 5;
+use Test::More tests => 6;
{
package Animal;
package Cat;
use Mouse::Role;
with 'Animal', {
- alias => { eat => 'drink' },
+ -alias => { eat => 'drink' },
+ -excludes => [qw(eat)],
};
sub eat { 'good!' }
}
package Dog;
use Mouse;
with 'Animal', {
- alias => { eat => 'drink' }
+ -alias => { eat => 'drink' },
};
}
my $d = Dog->new();
is($d->drink(), 'delicious');
+is($d->eat(), 'delicious');
my $t = Tama->new;
is $t->drink(), 'delicious';