X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAccessorGroupsRO.pm;h=25857a45350f385d7b177e164aa87676012fe352;hb=8019c4d86e5cea699b25d7eeb30c6fb7550f7298;hp=3cb8a1c2bf3a93486ff7913cfd63bd66db824dd9;hpb=18026fd59c6721f71469134d1ef767755b265386;p=p5sagit%2FClass-Accessor-Grouped.git diff --git a/t/lib/AccessorGroupsRO.pm b/t/lib/AccessorGroupsRO.pm index 3cb8a1c..25857a4 100644 --- a/t/lib/AccessorGroupsRO.pm +++ b/t/lib/AccessorGroupsRO.pm @@ -3,7 +3,7 @@ use strict; use warnings; use base 'Class::Accessor::Grouped'; -__PACKAGE__->mk_group_ro_accessors('single', 'singlefield'); +__PACKAGE__->mk_group_ro_accessors('simple', 'singlefield'); __PACKAGE__->mk_group_ro_accessors('multiple', qw/multiple1 multiple2/); __PACKAGE__->mk_group_ro_accessors('listref', [qw/lr1name lr1;field/], [qw/lr2name lr2'field/]); @@ -11,7 +11,7 @@ sub new { return bless {}, shift; }; -foreach (qw/single multiple listref/) { +foreach (qw/multiple listref/) { no strict 'refs'; *{"get_$_"} = \&Class::Accessor::Grouped::get_simple;