use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
{
package Animal;
use Mouse::Role;
+ requires 'bark';
sub eat { 'delicious' }
has food => ( is => 'ro' );
}
package Chihuahua;
use Mouse;
with 'Dog';
+ sub bark { 'bow-wow' }
}
ok !Animal->can('food');
my $c = Chihuahua->new(food => 'bone');
is $c->eat(), 'delicious';
is $c->food(), 'bone';
+is $c->bark(), 'bow-wow';