Commit | Line | Data |
042287b0 |
1 | ## name No collision |
2 | ## failures 0 |
3 | ## cut |
4 | |
5 | package Role; |
6 | use Moose::Role; |
7 | |
8 | sub role {} |
9 | |
10 | package Class; |
11 | use Moose; |
12 | with 'Role'; |
13 | |
14 | sub class {} |
15 | |
16 | #----------------------------------------------------------------------------- |
17 | |
18 | ## name Name collision |
19 | ## failures 1 |
20 | ## cut |
21 | |
22 | package Role; |
23 | use Moose::Role; |
24 | |
25 | sub foo {} |
26 | |
27 | package Class; |
28 | use Moose; |
29 | with 'Role'; |
30 | |
31 | sub foo {} |
32 | |
33 | #----------------------------------------------------------------------------- |
34 | |
35 | ## name Name collision with exclusion |
36 | ## failures 0 |
37 | ## cut |
38 | |
39 | package Role; |
40 | use Moose::Role; |
41 | |
42 | sub foo {} |
43 | |
44 | package Class; |
45 | use Moose; |
46 | with 'Role' => { excludes => 'foo' }; |
47 | |
48 | sub foo {} |
49 | |
c3c1ebd6 |
50 | #----------------------------------------------------------------------------- |
51 | |
52 | ## name Name collision from two roles |
53 | ## failures 1 |
54 | ## cut |
55 | |
56 | package Role::A; |
57 | use Moose::Role; |
58 | |
59 | sub foo {} |
60 | |
61 | package Role::B; |
62 | use Moose::Role; |
63 | |
64 | sub foo {} |
65 | |
66 | package Class; |
67 | use Moose; |
68 | with 'Role::A'; |
69 | with 'Role::B'; |
70 | |
aa65a014 |
71 | #----------------------------------------------------------------------------- |
72 | |
73 | ## name Name collision with aliasing |
74 | ## failures 0 |
75 | ## cut |
76 | |
77 | package Role; |
78 | use Moose::Role; |
79 | |
80 | sub foo {} |
81 | |
82 | package Class; |
83 | use Moose; |
84 | with 'Role' => { alias => { foo => 'foo_bar' } }; |
85 | |
86 | sub foo {} |
87 | |
ea14c2b7 |
88 | |
89 | #----------------------------------------------------------------------------- |
90 | |
91 | ## name Collision via same role |
92 | ## failures 0 |
93 | ## cut |
94 | |
95 | package Ur::Role; |
96 | use Moose::Role; |
97 | |
98 | sub foo { die "yawr" } |
99 | |
100 | package Role::Refined; |
101 | use Moose::Role; |
102 | with 'Ur::Role'; |
103 | |
104 | package Role::Distinguished; |
105 | use Moose::Role; |
106 | with 'Ur::Role'; |
107 | |
108 | package Class; |
109 | use Moose; |
110 | |
111 | with 'Role::Refined'; |
112 | with 'Role::Distinguished'; |
113 | |