X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAccessorGroupsRO.pm;h=1f88a47fee9e7974a86ad3d172c79e82acb6fb77;hb=ba8c183b7c3d71a5b8fcd936916e80a7b87f7961;hp=276573454d8b21cc0cbf708b2d616fabb664e798;hpb=ad0ed975f7023237ac91802e5da9ab4f30c7661d;p=p5sagit%2FClass-Accessor-Grouped.git diff --git a/t/lib/AccessorGroupsRO.pm b/t/lib/AccessorGroupsRO.pm index 2765734..1f88a47 100644 --- a/t/lib/AccessorGroupsRO.pm +++ b/t/lib/AccessorGroupsRO.pm @@ -8,12 +8,12 @@ __PACKAGE__->mk_group_ro_accessors('multiple', qw/multiple1 multiple2/); __PACKAGE__->mk_group_ro_accessors('listref', [qw/lr1name lr1;field/], [qw/lr2name lr2'field/]); sub new { - return bless {}, shift; + return bless {}, shift; }; foreach (qw/multiple listref/) { - no strict 'refs'; - *{"get_$_"} = __PACKAGE__->can ('get_simple'); + no strict 'refs'; + *{"get_$_"} = __PACKAGE__->can ('get_simple'); }; 1;