1package AccessorGroupsWO; 2use strict; 3use warnings; 4use base 'Class::Accessor::Grouped'; 5 6__PACKAGE__->mk_group_wo_accessors('single', 'singlefield'); 7__PACKAGE__->mk_group_wo_accessors('multiple', qw/multiple1 multiple2/); 8__PACKAGE__->mk_group_wo_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 *{"set_$_"} = \&Class::Accessor::Grouped::set_simple; 18}; 19 201; 21