10 sub parent_role_method { 1 };
15 sub role_method { 1 };
17 package MooRoledMooClass;
21 package MooRoledMooseClass;
44 for my $parent (qw(MooseParent MooParent)) {
45 for my $child (qw(MooRoledMooClass MooRoledMooseClass)) {
50 ok( $o->e->does("MooParentRole"), "$child does parent MooRole" );
51 can_ok( $o->e, "role_method" );
52 local $TODO = "multi-level roles are broken with moose" if $child eq "MooRoledMooseClass";
53 can_ok( $o->e, "parent_role_method" );
54 } "$parent instantiated with a $child delegate that does a MooRole";