Commit | Line | Data |
66cff612 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More; |
5 | BEGIN { |
6 | if (eval "require Class::Method::Modifiers; 1") { |
7 | plan tests => 1; |
8 | } |
9 | else { |
10 | plan skip_all => "Class::Method::Modifiers required for this test"; |
11 | } |
12 | } |
13 | use Mouse::Util ':test'; |
14 | |
15 | my @calls; |
16 | |
17 | do { |
18 | package Role; |
19 | use Mouse::Role; |
20 | |
21 | sub method { |
22 | push @calls, 'Role::method'; |
23 | }; |
24 | |
25 | no Mouse::Role; |
26 | }; |
27 | |
28 | do { |
29 | package Class; |
30 | use Mouse; |
31 | with 'Role'; |
32 | |
33 | no Mouse; |
34 | }; |
35 | |
36 | Class->method; |
37 | is_deeply([splice @calls], [ |
38 | 'Role::method', |
39 | ]); |
40 | |