Commit | Line | Data |
e7d391a8 |
1 | package AccessorGroups; |
2 | use strict; |
3 | use warnings; |
4 | use base 'Class::Accessor::Grouped'; |
5 | |
6 | __PACKAGE__->mk_group_accessors('single', 'singlefield'); |
7 | __PACKAGE__->mk_group_accessors('multiple', qw/multiple1 multiple2/); |
8 | __PACKAGE__->mk_group_accessors('listref', [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 | |
15 | foreach (qw/single multiple listref/) { |
16 | no strict 'refs'; |
17 | |
18 | *{"get_$_"} = \&Class::Accessor::Grouped::get_simple; |
19 | *{"set_$_"} = \&Class::Accessor::Grouped::set_simple; |
20 | }; |
21 | |
e7d391a8 |
22 | 1; |