Commit | Line | Data |
a5d6e23b |
1 | ## name No builder method |
2 | ## failures 0 |
3 | ## cut |
4 | |
5 | package Class; |
6 | use Moose; |
7 | |
8 | has attr => ( |
9 | is => 'rw', |
10 | ); |
11 | |
c3bfce2f |
12 | #----------------------------------------------------------------------------- |
13 | |
14 | ## name Private builder method |
15 | ## failures 0 |
16 | ## cut |
17 | |
18 | package Class; |
19 | use Moose; |
20 | |
21 | has attr => ( |
22 | is => 'rw', |
23 | builder => '_build_attr', |
24 | ); |
25 | |
26 | #----------------------------------------------------------------------------- |
27 | |
28 | ## name Public builder method |
29 | ## failures 1 |
30 | ## cut |
31 | |
32 | package Class; |
33 | use Moose; |
34 | |
35 | has attr => ( |
36 | is => 'rw', |
37 | builder => 'build_attr', |
38 | ); |
39 | |
54b16ed8 |
40 | #----------------------------------------------------------------------------- |
41 | |
42 | ## name Public builder method, declared dynamically |
43 | ## failures 1 |
44 | ## cut |
45 | |
46 | package Class; |
47 | use Moose; |
48 | |
49 | __PACKAGE__->meta->add_attribute(attr => ( |
50 | is => 'rw', |
51 | builder => 'build_attr', |
52 | )); |
53 | |
54 | #----------------------------------------------------------------------------- |
55 | |
56 | ## name Public builder method, named dynamically |
57 | ## failures 1 |
58 | ## cut |
59 | |
60 | package Class; |
61 | use Moose; |
62 | |
63 | my $builder = 'build_' . rand; |
64 | __PACKAGE__->meta->add_attribute(attr => ( |
65 | is => 'rw', |
66 | builder => $builder, |
67 | )); |
68 | |