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

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

__PACKAGE__->mk_group_accessors('component_class', 'result_class');

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

1;
Commit	Line	Data
18026fd5	1	package AccessorGroupsComp;
	2	use strict;
	3	use warnings;
	4	use base 'Class::Accessor::Grouped';
	5
	6	__PACKAGE__->mk_group_accessors('component_class', 'result_class');
	7
	8	sub new {
ba8c183b	9	return bless {}, shift;
18026fd5	10	};
	11
	12	1;