--- a/_test/Test/ORM/Schema.pm	Mon Mar 28 01:36:24 2011 +0400
+++ b/_test/Test/ORM/Schema.pm	Sat Apr 23 23:06:48 2011 +0400
@@ -1,7 +1,7 @@
 package Test::ORM::Schema;
 use strict;
 use warnings;
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 
 require IMPL::SQL::Schema::Traits::mysql;
 
@@ -49,7 +49,7 @@
 
 
 package Test::ORM::Schema::Data::User;
-use base qw(IMPL::ORM::Object);
+use parent qw(IMPL::ORM::Object);
 use IMPL::Class::Property;
 
 BEGIN {
@@ -59,7 +59,7 @@
 }
 
 package Test::ORM::Schema::Data::Role;
-use base qw(IMPL::ORM::Object);
+use parent qw(IMPL::ORM::Object);
 use IMPL::Class::Property;
 
 BEGIN {
@@ -67,7 +67,7 @@
 }
 
 package Test::ORM::Schema::Data::Session;
-use base qw(IMPL::ORM::Object);
+use parent qw(IMPL::ORM::Object);
 use IMPL::Class::Property;
 use IMPL::ORM::Helpers qw(Map);
 
@@ -79,7 +79,7 @@
 }
 
 package Test::ORM::Schema::Data;
-use base qw(IMPL::ORM::Schema);
+use parent qw(IMPL::ORM::Schema);
 
 __PACKAGE__->ValueTypes (
     String => 'IMPL::ORM::Value::String',