3 use Test::More tests => 5;
8 sub parent_method { 'parent_method' }
17 sub child_method { "role's" }
25 sub child_method { "class's" }
30 ok $o->does('ChildRole'), 'does ChildRole';
31 ok $o->does('ParentRole'), 'does ParentRole';
32 can_ok $o, qw(parent_method child_method);
33 is $o->parent_method, 'parent_method';
34 is $o->child_method, "class's";