Cleanup/consolidate main test

[p5sagit/Class-Accessor-Grouped.git] / t / lib / AccessorGroupsRO.pm

diff --git a/t/lib/AccessorGroupsRO.pm b/t/lib/AccessorGroupsRO.pm
index 25857a4..2765734 100644 (file)
--- 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;