X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAccessorGroups.pm;fp=t%2Flib%2FAccessorGroups.pm;h=b7188e9e26f316cff4a54b10bb9e1a651edd9b16;hb=85ccab9a83c665219c454f68486301ca51e02b2c;hp=240b76dfca5774e923a3eaae2431b80f1671cbec;hpb=c22782de08166e7c17d1c67902a27a39c5c23393;p=p5sagit%2FClass-Accessor-Grouped.git diff --git a/t/lib/AccessorGroups.pm b/t/lib/AccessorGroups.pm index 240b76d..b7188e9 100644 --- a/t/lib/AccessorGroups.pm +++ b/t/lib/AccessorGroups.pm @@ -1,8 +1,19 @@ +{ + package AccessorGroups::BeenThereDoneThat; + + use strict; + use warnings; + use base 'Class::Accessor::Grouped'; + + __PACKAGE__->mk_group_accessors('simple', 'singlefield'); + __PACKAGE__->mk_group_accessors('multiple', qw/multiple1 multiple2/); +} + + package AccessorGroups; use strict; use warnings; use base 'Class::Accessor::Grouped'; - __PACKAGE__->mk_group_accessors('simple', 'singlefield'); __PACKAGE__->mk_group_accessors('multiple', qw/multiple1 multiple2/); __PACKAGE__->mk_group_accessors('listref', [qw/lr1name lr1;field/], [qw/lr2name lr2'field/]);