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/); | |
8 | __PACKAGE__->mk_group_accessors('simple', [qw/lr1name lr1field/], [qw/lr2name lr2field/]); | |
331e820d | 9 | __PACKAGE__->mk_group_accessors('component_class', 'result_class'); |
e7d391a8 | 10 | |
11 | sub new { | |
12 | return bless {}, shift; | |
13 | }; | |
14 | ||
e7d391a8 | 15 | 1; |