Commit | Line | Data |
ad350a21 |
1 | ## name Makes immutable |
2 | ## failures 0 |
3 | ## cut |
4 | |
5 | package Class; |
6 | use Moose; |
7 | |
8 | has attr => ( |
9 | is => 'rw', |
10 | ); |
11 | |
12 | __PACKAGE__->meta->make_immutable; |
13 | |
14 | #----------------------------------------------------------------------------- |
15 | |
16 | ## name Does not make immutable |
17 | ## failures 1 |
18 | ## cut |
19 | |
20 | package Class; |
21 | use Moose; |
22 | |
23 | has attr => ( |
24 | is => 'rw', |
25 | builder => '_build_attr', |
26 | ); |
27 | |
28 | #----------------------------------------------------------------------------- |
29 | |
30 | ## name Does not statically make immutable |
31 | ## failures 0 |
32 | ## cut |
33 | |
34 | for (1 .. 5) { |
35 | my $class = Class::MOP::Class->create("Foo$_"); |
36 | my $method = join '_', "make", "immutable"; |
37 | $class->$method; |
38 | } |
39 | |