Commit | Line | Data |
a1164a0b |
1 | use strictures 1; |
2 | use Test::More; |
a1164a0b |
3 | |
4 | BEGIN { |
5 | package MyRole; |
6 | |
7 | use Role::Tiny; |
8 | |
9 | sub bar { 'role bar' } |
10 | |
11 | sub baz { 'role baz' } |
12 | } |
13 | |
14 | BEGIN { |
15 | package MyClass; |
16 | |
17 | use Role::Tiny::With; |
18 | |
19 | with 'MyRole'; |
20 | |
21 | sub foo { 'class foo' } |
22 | |
23 | sub baz { 'class baz' } |
24 | |
25 | } |
26 | |
27 | is(MyClass->foo, 'class foo', 'method from class no override'); |
28 | is(MyClass->bar, 'role bar', 'method from role'); |
29 | is(MyClass->baz, 'class baz', 'method from class'); |
30 | |
31 | done_testing; |