[p5sagit/Class-Accessor-Grouped.git] / t / lib / BaseInheritedGroups.pm

package BaseInheritedGroups;
use strict;
use warnings;
use base 'Class::Accessor::Grouped';

__PACKAGE__->mk_group_accessors('inherited', 'basefield', 'undefined');

sub new {
  return bless {}, shift;
};

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