1package AccessorGroupsRO; 2use strict; 3use warnings; 4use base 'Class::Accessor::Grouped'; 5 6__PACKAGE__->mk_group_ro_accessors('single', 'singlefield'); 7__PACKAGE__->mk_group_ro_accessors('multiple', qw/multiple1 multiple2/); 8__PACKAGE__->mk_group_ro_accessors('listref', [qw/lr1name lr1field/], [qw/lr2name lr2field/]); 9 10sub new { 11 return bless {}, shift; 12}; 13 14foreach (qw/single multiple listref/) { 15 no strict 'refs'; 16 17 *{"get_$_"} = \&Class::Accessor::Grouped::get_simple; 18}; 19 201; 21