Commit | Line | Data |
f1ce2b19 |
1 | use strict; |
2 | use warnings FATAL => 'all'; |
3 | use Test::More; |
4 | use Test::Fatal; |
5 | |
6 | { |
7 | package MyRole1; |
8 | |
9 | sub before_role {} |
10 | |
11 | use Role::Tiny; |
12 | |
13 | our $GLOBAL1 = 1; |
14 | sub after_role {} |
15 | } |
16 | |
17 | { |
18 | package MyClass1; |
19 | |
20 | our $GLOBAL1 = 1; |
21 | sub method {} |
22 | } |
23 | |
24 | my $role_methods = Role::Tiny->_concrete_methods_of('MyRole1'); |
25 | is_deeply([sort keys %$role_methods], ['after_role'], |
26 | 'only subs after Role::Tiny import are methods' ); |
27 | |
28 | my $class_methods = Role::Tiny->_concrete_methods_of('MyClass1'); |
29 | is_deeply([sort keys %$class_methods], ['method'], |
30 | 'only subs from non-Role::Tiny packages are methods' ); |
31 | |
32 | done_testing; |