5 sub foo { return (caller(0))[3] }
9 package MyClass1; use Mouse; with 'MyRole'; no Mouse;
10 package MyClass2; use Mouse; with 'MyRole'; no Mouse;
14 use Test::More tests => 4;
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" );