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