10 sub parent_role_method { 1 };
15 sub role_method { 1 };
17 package MooRoledMooClass;
21 has 'some_attr' => (is => 'ro');
23 package MooRoledMooseClass;
27 has 'some_attr' => (is => 'ro');
48 for my $parent (qw(MooseParent MooParent)) {
49 for my $child (qw(MooRoledMooClass MooRoledMooseClass)) {
54 ok( $o->e->does("MooParentRole"), "$child does parent MooRole" );
55 can_ok( $o->e, "role_method" );
56 can_ok( $o->e, "parent_role_method" );
57 ok($o->e->meta->has_method('role_method'), 'Moose knows about role_method');
58 ok($o->e->meta->has_method('parent_role_method'), 'Moose knows about parent_role_method');