Commit | Line | Data |
---|---|---|
b6f7ee15 | 1 | package MyRole; |
2 | ||
3 | use Moose::Role; | |
4 | ||
5 | sub foo { return (caller(0))[3] } | |
6 | ||
7 | no Moose::Role; | |
8 | ||
9 | package MyClass1; use Moose; with 'MyRole'; no Moose; | |
10 | package MyClass2; use Moose; with 'MyRole'; no Moose; | |
11 | ||
12 | package main; | |
13 | ||
14 | use Test::More tests => 2; | |
15 | ||
16 | { | |
17 | local $TODO = 'for rafl'; | |
18 | is(MyClass1->foo, 'MyClass1::foo', | |
19 | 'method from role has correct name in caller()'); | |
20 | } | |
21 | is(MyClass2->foo, 'MyClass2::foo'); |