overload tests: use parent instead of base
authorRicardo Signes <rjbs@cpan.org>
Mon, 9 Sep 2013 02:07:03 +0000 (22:07 -0400)
committerRicardo Signes <rjbs@cpan.org>
Thu, 12 Sep 2013 23:49:17 +0000 (19:49 -0400)
lib/overload.t

index 3af969b..c83c0ed 100644 (file)
@@ -2065,11 +2065,11 @@ fresh_perl_is
     }
 
     package NCmp;
-    use base 'CmpBase';
+    use parent '-norequire', 'CmpBase';
     use overload '<=>' => 'cmp';
 
     package SCmp;
-    use base 'CmpBase';
+    use parent '-norequire', 'CmpBase';
     use overload 'cmp' => 'cmp';
 
     package main;
@@ -2133,7 +2133,7 @@ fresh_perl_is
                 ? $nomethod . "=>'nomethod'," : '';
             eval qq{
                     package NuMB$fall$nomethod;
-                    use base qw/NuMB/;
+                    use parent '-norequire', qw/NuMB/;
                     use overload $nomethod_decl
                     fallback => $fall;
                 };