Commit | Line | Data |
---|---|---|
e7d391a8 | 1 | package AccessorGroups; |
2 | use strict; | |
3 | use warnings; | |
4 | use base 'Class::Accessor::Grouped'; | |
5 | ||
9540f4e4 | 6 | __PACKAGE__->mk_group_accessors('simple', 'singlefield'); |
7 | __PACKAGE__->mk_group_accessors('simple', qw/multiple1 multiple2/); | |
8ef9b3ff | 8 | __PACKAGE__->mk_group_accessors('simple', [qw/lr1name lr1;field/], [qw/lr2name lr2'field/]); |
e7d391a8 | 9 | |
10 | sub new { | |
11 | return bless {}, shift; | |
12 | }; | |
13 | ||
e7d391a8 | 14 | 1; |