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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
{
package Foo;
use Moose;
has foo => (
is => 'ro',
);
has bar => (
clearer => 'clear_bar',
);
}
{
package Foo::Sub;
use Moose;
extends 'Foo';
::throws_ok { has '+foo' => (is => 'rw') } qr/illegal/, "can't override is";
::throws_ok { has '+foo' => (reader => 'bar') } qr/illegal/, "can't override reader";
::lives_ok { has '+foo' => (clearer => 'baz') } "can override unspecified things";
::throws_ok { has '+bar' => (clearer => 'quux') } qr/illegal/, "can't override clearer";
::lives_ok { has '+bar' => (predicate => 'has_bar') } "can override unspecified things";
}
{
package Bar::Meta::Attribute;
use Moose::Role;
has my_illegal_option => (is => 'ro');
around illegal_options_for_inheritance => sub {
return (shift->(@_), 'my_illegal_option');
};
}
{
package Bar;
use Moose;
::lives_ok {
has bar => (
traits => ['Bar::Meta::Attribute'],
my_illegal_option => 'FOO',
is => 'bare',
);
} "can use illegal options";
has baz => (
traits => ['Bar::Meta::Attribute'],
is => 'bare',
);
}
{
package Bar::Sub;
use Moose;
extends 'Bar';
::throws_ok { has '+bar' => (my_illegal_option => 'BAR') }
qr/illegal/,
"can't override illegal attribute";
::lives_ok { has '+baz' => (my_illegal_option => 'BAR') }
"can add illegal option if superclass doesn't set it";
}
my $bar_attr = Bar->meta->get_attribute('bar');
ok((grep { $_ eq 'my_illegal_option' } $bar_attr->illegal_options_for_inheritance) > 0, '... added my_illegal_option as illegal option for inheritance');
done_testing;
|
