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

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

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

__PACKAGE__->mk_group_accessors('inherited', 'killme');

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