[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');

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
	6	__PACKAGE__->mk_group_accessors('inherited', 'basefield');
	7
	8	sub new {
	9	return bless {}, shift;
	10	};
	11
	12	1;