5 sub foo { return (caller(0))[3] }
9 package MyClass1; use Moose; with 'MyRole'; no Moose;
10 package MyClass2; use Moose; with 'MyRole'; no Moose;
17 local $TODO = 'Role composition does not clone methods yet';
18 is(MyClass1->foo, 'MyClass1::foo',
19 'method from role has correct name in caller()');
20 is(MyClass2->foo, 'MyClass2::foo',
21 'method from role has correct name in caller()');
24 isnt(MyClass1->foo, "MyClass2::foo", "role method is not confused with other class" );
25 isnt(MyClass2->foo, "MyClass1::foo", "role method is not confused with other class" );