--- a/_test/Test/Object/Common.pm	Mon Mar 28 01:36:24 2011 +0400
+++ b/_test/Test/Object/Common.pm	Sat Apr 23 23:06:48 2011 +0400
@@ -2,14 +2,14 @@
 use strict;
 use warnings;
 
-use base qw( IMPL::Test::Unit );
+use parent qw( IMPL::Test::Unit );
 use IMPL::Test qw(test failed cmparray);
 
 __PACKAGE__->PassThroughArgs;
 
 {
     package Foo;
-    use base qw(IMPL::Object);
+    use parent qw(IMPL::Object);
     
     sub CTOR {
         my ($this,$refarg) = @_;
@@ -17,7 +17,7 @@
     }
     
     package Bar;
-    use base qw(Foo);
+    use parent qw(-norequire Foo);
     
     __PACKAGE__->PassThroughArgs;
     
@@ -28,7 +28,7 @@
     }
     
     package Baz;
-    use base qw(Bar);
+    use parent qw(-norequire Bar);
     
     our %CTOR = (
         Bar => sub {
@@ -43,7 +43,7 @@
     }
     
     package Zoo;
-    use base qw(Bar);
+    use parent qw(-norequire Bar);
     
     __PACKAGE__->PassThroughArgs;
     
@@ -54,7 +54,7 @@
     };
     
     package Complex;
-    use base qw(Baz Zoo);
+    use parent qw(-norequire Baz Zoo);
     
     our %CTOR = (
         Baz => sub { @_ },