use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More;
use Test::Exception;
use Moose::Meta::Role;
{
package FooRole;
-
+
our $VERSION = '0.01';
-
+
sub foo { 'FooRole::foo' }
}
[ $foo_role->get_method_list() ],
[ 'foo' ],
'... got the right method list');
-
+
# attributes ...
is_deeply(
[ $foo_role->get_method_modifier_list('before') ],
[ 'boo' ],
'... got the right list of before method modifiers');
+
+done_testing;