1 package AccessorGroups;
4 use base 'Class::Accessor::Grouped';
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/]);
9 __PACKAGE__->mk_group_accessors('component_class', 'result_class');
12 return bless {}, shift;
15 foreach (qw/single multiple listref/) {
18 *{"get_$_"} = \&Class::Accessor::Grouped::get_simple;
19 *{"set_$_"} = \&Class::Accessor::Grouped::set_simple;