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;
14 use Test::More tests => 2;
17 local $TODO = 'for rafl';
18 is(MyClass1->foo, 'MyClass1::foo',
19 'method from role has correct name in caller()');
21 is(MyClass2->foo, 'MyClass2::foo');