2 use warnings FATAL => 'all';
10 sub bar { 'role bar' }
12 sub baz { 'role baz' }
22 sub foo { 'class foo' }
24 sub baz { 'class baz' }
28 is(MyClass->foo, 'class foo', 'method from class no override');
29 is(MyClass->bar, 'role bar', 'method from role');
30 is(MyClass->baz, 'class baz', 'method from class');