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