1package ExtraInheritedGroups; 2use strict; 3use warnings; 4use base 'Class::Accessor::Grouped'; 5 6__PACKAGE__->mk_group_accessors('inherited', 'basefield'); 7__PACKAGE__->set_inherited (basefield => 'your extra base!'); 8 91; 10
1package ExtraInheritedGroups; 2use strict; 3use warnings; 4use base 'Class::Accessor::Grouped'; 5 6__PACKAGE__->mk_group_accessors('inherited', 'basefield'); 7__PACKAGE__->set_inherited (basefield => 'your extra base!'); 8 91; 10