4 plan skip_all => "This test requires Moose" unless eval "require Moose; 1;";
15 package ${class}Parent;
17 sub parent_method { 'ok' }
21 package ${class}ChildRole;
23 use base qw/${class}Parent/;
24 sub conflict { "role's" }
28 package ${class}Class;
30 with '${class}ChildRole';
31 sub conflict { "class's" }
35 ok !"${class}Class"->can('parent_method');
36 is "${class}Class"->conflict(), "class's";