t/lib/ExtraInheritedGroups.pm

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