Commit | Line | Data |
c26cc2b9 |
1 | package AccessorGroupsWO; |
2 | use strict; |
3 | use warnings; |
4 | use base 'Class::Accessor::Grouped'; |
5 | |
8019c4d8 |
6 | __PACKAGE__->mk_group_wo_accessors('simple', 'singlefield'); |
c26cc2b9 |
7 | __PACKAGE__->mk_group_wo_accessors('multiple', qw/multiple1 multiple2/); |
6a4c729f |
8 | __PACKAGE__->mk_group_wo_accessors('listref', [qw/lr1name lr1;field/], [qw/lr2name lr2'field/]); |
79f0ccb0 |
9 | __PACKAGE__->mk_group_wo_accessors('simple', [ fieldname_torture => join ('', map { chr($_) } (0..255) ) ]); |
c26cc2b9 |
10 | |
11 | sub new { |
ba8c183b |
12 | return bless {}, shift; |
c26cc2b9 |
13 | }; |
14 | |
8019c4d8 |
15 | foreach (qw/multiple listref/) { |
ba8c183b |
16 | no strict 'refs'; |
17 | *{"set_$_"} = __PACKAGE__->can('set_simple'); |
c26cc2b9 |
18 | }; |
19 | |
20 | 1; |