4 use Test::More tests => 20;
13 use MooseX::Role::Parameterized;
15 requires 'requirement';
20 method meth => sub {};
21 before meth => sub {};
23 around meth => sub {};
27 override other_meth => sub { super };
34 for my $meta (MyRole->meta, MyRole->meta->generate_role) {
35 ok($meta->has_attribute('attribute'), 'has');
36 ok($meta->has_method('meth'), 'method');
37 ok($meta->has_method('regular_method'), 'sub');
39 is($meta->has_before_method_modifiers('meth'), 1, 'before');
40 is($meta->has_after_method_modifiers('meth'), 1, 'after');
41 is($meta->has_around_method_modifiers('meth'), 1, 'around');
43 is($meta->has_override_method_modifier('other_meth'), 1, 'override');
44 is($meta->does_role('OtherRole'), 1, 'with');
46 ok($meta->requires_method('requirement'), 'requires');
47 ok($meta->excludes_role('exclusion'), 'excludes');