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

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

__PACKAGE__->mk_group_accessors('inherited', 'basefield');
__PACKAGE__->set_inherited (basefield => 'your extra base!');

1;
Commit	Line	Data
4f8ce9da	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;