1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
use strict;
use warnings;
use Test::More 0.88;
use Test::Fatal;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use lib 't/lib';
{
package Role::HasFallback;
use Moose::Role;
use overload
q{""} => '_stringify',
fallback => 1;
sub _stringify { __PACKAGE__ }
}
{
package Role::NoFallback;
use Moose::Role;
use overload
'0+' => '_numify',
fallback => 0;
sub _numify { 42 }
}
{
package Class1;
use Moose;
::like(
::exception { with qw( Role::HasFallback Role::NoFallback ) },
qr/\QWe have encountered an overloading conflict for the fallback during composition. This is a fatal error./,
'exception from fallback conflict during role summation'
);
}
{
package Role::NoOverloading;
use Moose::Role;
sub foo { 42 }
}
{
package Class2;
use Moose;
::like(
::exception { with qw( Role::HasFallback Role::NoFallback Role::NoOverloading ) },
qr/\QWe have encountered an overloading conflict for the fallback during composition. This is a fatal error./,
'exception from fallback conflict during role summation including role without overloading'
);
}
{
package Role::StringifiesViaSubref1;
use Moose::Role;
use overload q{""} => sub { 'foo' };
}
{
package Role::StringifiesViaSubref2;
use Moose::Role;
use overload q{""} => sub { 'bar' };
}
{
package Class3;
use Moose;
::like(
::exception { with qw( Role::StringifiesViaSubref1 Role::StringifiesViaSubref2 ) },
qr/\QThe two roles both overload the '""' operator. This is a fatal error./,
'exception when two roles with different subref overloading conflict during role summation'
);
}
{
package Class4;
use Moose;
::like(
::exception { with qw( Role::StringifiesViaSubref1 Role::StringifiesViaSubref2 Role::NoOverloading ) },
qr/\QThe two roles both overload the '""' operator. This is a fatal error./,
'exception when two roles with different subref overloading conflict during role summation including role without overloading'
);
}
{
package Role::StringifiesViaMethod1;
use Moose::Role;
use overload q{""} => '_stringify1';
sub _stringify1 { 'foo' }
}
{
package Role::StringifiesViaMethod2;
use Moose::Role;
use overload q{""} => '_stringify2';
sub _stringify2 { 'foo' }
}
{
package Class5;
use Moose;
::like(
::exception { with qw( Role::StringifiesViaMethod1 Role::StringifiesViaMethod2 ) },
qr/\QThe two roles both overload the '""' operator. This is a fatal error./,
'exception when two roles with different method overloading conflict during role summation'
);
}
{
package Class6;
use Moose;
::like(
::exception { with qw( Role::StringifiesViaMethod1 Role::StringifiesViaMethod2 Role::NoOverloading ) },
qr/\QThe two roles both overload the '""' operator. This is a fatal error./,
'exception when two roles with different method overloading conflict during role summation including role without overloading'
);
}
{
{
package R1;
use Moose::Role;
use overload '&{}' => 'as_code';
sub as_code { }
}
{
package R2;
use Moose::Role;
with 'R1';
}
{
package C1;
use Moose;
::is(
::exception { with 'R1', 'R2' },
undef,
'no conflict when class consumes multiple roles with the same overloading'
);
}
}
done_testing();
|
