t/lib/BaseInheritedGroups.pm

   1 package BaseInheritedGroups;
   2 use strict;
   3 use warnings;
   4 use base 'Class::Accessor::Grouped';
   5
   6 __PACKAGE__->mk_group_accessors('inherited', 'basefield', 'undefined');
   7
   8 sub new {
   9   return bless {}, shift;
  10 };
  11
  12 1;