X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAccessorGroupsRO.pm;h=276573454d8b21cc0cbf708b2d616fabb664e798;hb=2834410402128f3ade69b3c35bf9fbdebf81d172;hp=25857a45350f385d7b177e164aa87676012fe352;hpb=71eea8e1013a2e38a79e56b43d41f1748b70ba1c;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/lib/AccessorGroupsRO.pm b/t/lib/AccessorGroupsRO.pm
index 25857a4..2765734 100644
--- a/t/lib/AccessorGroupsRO.pm
+++ b/t/lib/AccessorGroupsRO.pm
@@ -13,8 +13,7 @@ sub new {
 
 foreach (qw/multiple listref/) {
     no strict 'refs';
-
-    *{"get_$_"} = \&Class::Accessor::Grouped::get_simple;
+    *{"get_$_"} = __PACKAGE__->can ('get_simple');
 };
 
 1;