# HG changeset patch
# User wizard
# Date 1303585926 -14400
# Node ID 4267a2ac3d46f3573ecf78bd24b6635d7595fced
# Parent  76515373dac07e6b6ee92aa2350fd36c403ab839
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'

diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/DOM/Schema.pm
--- a/Lib/IMPL/DOM/Schema.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/DOM/Schema.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -17,7 +17,7 @@
 require IMPL::DOM::XMLReader;
 require IMPL::DOM::Schema::InflateFactory;
 
-use base qw(IMPL::DOM::Document);
+use parent qw(IMPL::DOM::Document);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 use File::Spec;
@@ -241,7 +241,7 @@
 
 =head1 DESCRIPTION
 
-C<use base qw(IMPL::DOM::Document)>
+C<use parent qw(IMPL::DOM::Document)>
 
 DOM схема - это документ, состоящий из определенных узлов, описывающая структуру
 других документов.
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/DOM/Schema/Validator.pm
--- a/Lib/IMPL/DOM/Schema/Validator.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/DOM/Schema/Validator.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::DOM::Schema::Validator;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 
 require IMPL::Exception;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/DOM/Transform.pm
--- a/Lib/IMPL/DOM/Transform.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/DOM/Transform.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Transform);
+use parent qw(IMPL::Transform);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/DOM/Transform/PostToDOM.pm
--- a/Lib/IMPL/DOM/Transform/PostToDOM.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/DOM/Transform/PostToDOM.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -5,7 +5,7 @@
 use IMPL::DOM::Navigator::Builder;
 use IMPL::Class::Property;
 
-use base qw(IMPL::Transform);
+use parent qw(IMPL::Transform);
 
 BEGIN {
     public property documentClass => prop_get | owner_set;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/DOM/XMLReader.pm
--- a/Lib/IMPL/DOM/XMLReader.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/DOM/XMLReader.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 use XML::Parser;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM.pm
--- a/Lib/IMPL/ORM.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use Scalar::Util qw(weaken refaddr);
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Entity.pm
--- a/Lib/IMPL/ORM/Entity.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Entity.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Object.pm
--- a/Lib/IMPL/ORM/Object.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Object.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/PropertyImplementor.pm
--- a/Lib/IMPL/ORM/PropertyImplementor.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/PropertyImplementor.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Class::Property::Direct);
+use parent qw(IMPL::Class::Property::Direct);
 
 
 1;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema.pm
--- a/Lib/IMPL/ORM/Schema.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Document);
+use parent qw(IMPL::DOM::Document);
 use IMPL::Class::Property;
 require IMPL::ORM::Schema::Entity;
 require IMPL::ORM::Schema::ValueType;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Entity.pm
--- a/Lib/IMPL/ORM/Schema/Entity.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Entity.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Field.pm
--- a/Lib/IMPL/ORM/Schema/Field.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Field.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Relation.pm
--- a/Lib/IMPL/ORM/Schema/Relation.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Relation.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 
 our %CTOR =(
     'IMPL::DOM::Node' => sub { nodeName => $_[0] }
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Relation/HasMany.pm
--- a/Lib/IMPL/ORM/Schema/Relation/HasMany.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Relation/HasMany.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::ORM::Schema::Relation);
+use parent qw(IMPL::ORM::Schema::Relation);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Relation/HasOne.pm
--- a/Lib/IMPL/ORM/Schema/Relation/HasOne.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Relation/HasOne.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::ORM::Schema::Relation);
+use parent qw(IMPL::ORM::Schema::Relation);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/Relation/Subclass.pm
--- a/Lib/IMPL/ORM/Schema/Relation/Subclass.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/Relation/Subclass.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::ORM::Schema::Relation);
+use parent qw(IMPL::ORM::Schema::Relation);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/TransformToSQL.pm
--- a/Lib/IMPL/ORM/Schema/TransformToSQL.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/TransformToSQL.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Transform);
+use parent qw(IMPL::DOM::Transform);
 use IMPL::Class::Property;
 use IMPL::SQL::Types qw(DateTime Varchar Integer Float Text Binary);
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Schema/ValueType.pm
--- a/Lib/IMPL/ORM/Schema/ValueType.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/ValueType.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 
 use strict;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 
 our %CTOR = (
     'IMPL::DOM::Node' => sub { nodeName => 'ValueType' }
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/ORM/Store/SQL.pm
--- a/Lib/IMPL/ORM/Store/SQL.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/ORM/Store/SQL.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Abstract.pm
--- a/Lib/IMPL/Object/Abstract.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Abstract.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Class::Meta);
+use parent qw(IMPL::Class::Meta);
 
 our $MemoryLeakProtection;
 my $Cleanup = 0;
@@ -127,7 +127,7 @@
 =head1 SYNOPSIS
 
 package MyBaseObject;
-use base qw(IMPL::Object::Abstract);
+use parent qw(IMPL::Object::Abstract);
 
 sub new {
     # own implementation of the new opeator
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Accessor.pm
--- a/Lib/IMPL/Object/Accessor.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Accessor.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Object::Accessor;
 use strict;
-use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
+use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
 
 sub new {
     my $class = shift;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/ArrayObject.pm
--- a/Lib/IMPL/Object/ArrayObject.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/ArrayObject.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object::Abstract);
+use parent qw(IMPL::Object::Abstract);
 
 sub new {
     my $class = shift;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Autofill.pm
--- a/Lib/IMPL/Object/Autofill.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Autofill.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -84,7 +84,7 @@
 =pod
 =head1 SYNOPSIS
 package MyClass;
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 
 BEGIN {
     private property PrivateData => prop_all;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/EventSource.pm
--- a/Lib/IMPL/Object/EventSource.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/EventSource.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -65,7 +65,7 @@
 }
 
 package IMPL::Object::EventSource::EventTable;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 use Scalar::Util qw(weaken);
@@ -135,7 +135,7 @@
 =pod
 =head1 SYNOPSIS
 package Foo;
-use base qw(IMPL::Object IMPL::Object::EventSource);
+use parent qw(IMPL::Object IMPL::Object::EventSource);
 
 # declare events
 __PACKAGE__->CreateEvent('OnUpdate');
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Factory.pm
--- a/Lib/IMPL/Object/Factory.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Factory.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Object::Factory;
 use strict;
 
-use base qw(IMPL::Object IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Serializable);
 
 use IMPL::Class::Property;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Fields.pm
--- a/Lib/IMPL/Object/Fields.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Fields.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object::Abstract);
+use parent qw(IMPL::Object::Abstract);
 
 sub new {
 	my $class = shift;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/List.pm
--- a/Lib/IMPL/Object/List.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/List.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object::ArrayObject);
+use parent qw(IMPL::Object::ArrayObject);
 use IMPL::Exception;
 
 sub as_list {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Meta.pm
--- a/Lib/IMPL/Object/Meta.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Meta.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Object/Singleton.pm
--- a/Lib/IMPL/Object/Singleton.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/Singleton.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -25,7 +25,7 @@
 
 package Foo;
 
-use base qw(IMPL::Object IMPL::Object::Singleton);
+use parent qw(IMPL::Object IMPL::Object::Singleton);
 
 #....
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Resources/Strings.pm
--- a/Lib/IMPL/Resources/Strings.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Resources/Strings.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -70,7 +70,7 @@
 }
 
 package IMPL::Resources::Strings::Storage;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 sub get {
     my ($this,$msg_name) = @_;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/SQL/Schema/Constraint/Unique.pm
--- a/Lib/IMPL/SQL/Schema/Constraint/Unique.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint/Unique.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::SQL::Schema::Constraint::Unique;
 use strict;
-use base qw(IMPL::SQL::Schema::Constraint::Index);
+use parent qw(IMPL::SQL::Schema::Constraint::Index);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/SQL/Schema/Traits/Processor.pm
--- a/Lib/IMPL/SQL/Schema/Traits/Processor.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/Traits/Processor.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,5 +1,5 @@
 package IMPL::SQL::Traits::Processor;
-use base qw(IMPL::SQL::Schema);
+use parent qw(IMPL::SQL::Schema);
 
 use IMPL::Class::Property;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/SQL/Schema/TraitsOld.pm
--- a/Lib/IMPL/SQL/Schema/TraitsOld.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/TraitsOld.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::SQL::Schema::Traits;
 use strict;
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security.pm
--- a/Lib/IMPL/Security.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -196,7 +196,7 @@
 
 package MySecurity;
 
-use base qw(IMPL::Security);
+use parent qw(IMPL::Security);
 
 sub Rules {
 	return [
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security/Auth.pm
--- a/Lib/IMPL/Security/Auth.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security/Auth.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -8,7 +8,7 @@
 	AUTH_FAIL => 3	
 };
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 our @EXPORT_OK = qw(&AUTH_SUCCESS &AUTH_INCOMPLETE &AUTH_FAIL &GenSSID);
 our %EXPORT_TAGS = (Const => [qw(&AUTH_SUCCESS &AUTH_INCOMPLETE &AUTH_FAIL)]);
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security/Auth/Simple.pm
--- a/Lib/IMPL/Security/Auth/Simple.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security/Auth/Simple.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Security::Auth::Simple;
 use strict;
 
-use base qw(IMPL::Object IMPL::Security::Auth);
+use parent qw(IMPL::Object IMPL::Security::Auth);
 use Digest::MD5;
 
 use IMPL::Class::Property;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security/Context.pm
--- a/Lib/IMPL/Security/Context.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security/Context.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security/Principal.pm
--- a/Lib/IMPL/Security/Principal.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security/Principal.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 use IMPL::Class::Property;
 
 __PACKAGE__->PassThroughArgs;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Security/Role.pm
--- a/Lib/IMPL/Security/Role.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Security/Role.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Security::Role;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Serialization.pm
--- a/Lib/IMPL/Serialization.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Serialization.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -8,7 +8,7 @@
 
 
 package IMPL::Serialization::Context;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
@@ -141,7 +141,7 @@
 }
 
 package IMPL::Deserialization::Context;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
@@ -378,7 +378,7 @@
 }
 
 package IMPL::Serializer;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Serialization/XmlFormatter.pm
--- a/Lib/IMPL/Serialization/XmlFormatter.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Serialization/XmlFormatter.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Serialization::XmlObjectWriter;
 use strict;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
@@ -125,7 +125,7 @@
 }
 
 package IMPL::Serialization::XmlObjectReader;
-use base qw(XML::Parser);
+use parent qw(XML::Parser);
 
 sub new {
   my $class = shift;
@@ -168,7 +168,7 @@
 }
 
 package IMPL::Serialization::XmlFormatter;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/BadUnit.pm
--- a/Lib/IMPL/Test/BadUnit.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/BadUnit.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/FailException.pm
--- a/Lib/IMPL/Test/FailException.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/FailException.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Exception);
+use parent qw(IMPL::Exception);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/HarnessRunner.pm
--- a/Lib/IMPL/Test/HarnessRunner.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/HarnessRunner.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
 use IMPL::Class::Property;
 use Test::Harness;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/Plan.pm
--- a/Lib/IMPL/Test/Plan.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/Plan.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 
 use IMPL::Exception;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/Result.pm
--- a/Lib/IMPL/Test/Result.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/Result.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
 use IMPL::Class::Property;
 
 __PACKAGE__->PassThroughArgs;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/SkipException.pm
--- a/Lib/IMPL/Test/SkipException.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/SkipException.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Test::SkipException;
 
-use base qw(IMPL::Test::FailException);
+use parent qw(IMPL::Test::FailException);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/Straps.pm
--- a/Lib/IMPL/Test/Straps.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/Straps.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(Test::Harness::Straps IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use parent qw(Test::Harness::Straps IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
 use IMPL::Class::Property;
 
 __PACKAGE__->PassThroughArgs;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/Straps/ShellExecutor.pm
--- a/Lib/IMPL/Test/Straps/ShellExecutor.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/Straps/ShellExecutor.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Serializable);
 
 if ($^O =~ /win32/i) {
     require Win32::Console;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/TAPListener.pm
--- a/Lib/IMPL/Test/TAPListener.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/TAPListener.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Serializable);
 use IMPL::Class::Property;
 use IMPL::Test::Result;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Test/Unit.pm
--- a/Lib/IMPL/Test/Unit.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Test/Unit.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 
 use Time::HiRes qw(gettimeofday tv_interval);
@@ -110,7 +110,7 @@
 }
 
 package IMPL::Test::Unit::TestInfo;
-use base qw(IMPL::Object::Meta);
+use parent qw(IMPL::Object::Meta);
 use IMPL::Class::Property;
 
 require IMPL::Exception;
@@ -128,7 +128,7 @@
 }
 
 package IMPL::Test::Unit::SharedData;
-use base qw(IMPL::Object::Meta);
+use parent qw(IMPL::Object::Meta);
 use IMPL::Class::Property;
 
 BEGIN {
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Text/Parser/Chunk.pm
--- a/Lib/IMPL/Text/Parser/Chunk.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Text/Parser/Chunk.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Text/Parser/Player.pm
--- a/Lib/IMPL/Text/Parser/Player.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Text/Parser/Player.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Text/Schema.pm
--- a/Lib/IMPL/Text/Schema.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Text/Schema.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Schema);
+use parent qw(IMPL::DOM::Schema);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Transform.pm
--- a/Lib/IMPL/Transform.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Transform.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,5 +1,5 @@
 package IMPL::Transform;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
@@ -50,7 +50,7 @@
 }
 
 package IMPL::Transform::NoTransformException;
-use base qw(IMPL::Exception);
+use parent qw(IMPL::Exception);
 
 our %CTOR = (
     'IMPL::Exception' => sub { 'No transformation', @_ }
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Application.pm
--- a/Lib/IMPL/Web/Application.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Application.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Config IMPL::Object::Singleton);
+use parent qw(IMPL::Config IMPL::Object::Singleton);
 
 require IMPL::Web::Application::Action;
 require IMPL::Web::Application::Response;
@@ -95,7 +95,7 @@
 }
 
 package CGIWrapper;
-use base qw(CGI);
+use parent qw(CGI);
 
 use Encode;
 
@@ -151,7 +151,7 @@
 
 =head1 DESCRIPTION
 
-C< use base qw( IMPL::Config IMPL::Object::Singleton )>
+C< use parent qw( IMPL::Config IMPL::Object::Singleton )>
 
 Зкземпляр приложения содержит в себе глобальные настройки, реализует контроллер запросов,
 в качестве источника запросов используется CGI или иной совместимый модуль.
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Application/Action.pm
--- a/Lib/IMPL/Web/Application/Action.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Application/Action.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Web::Application::Action;
 use strict;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Application/ControllerUnit.pm
--- a/Lib/IMPL/Web/Application/ControllerUnit.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Application/ControllerUnit.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 use strict;
 package IMPL::Web::Application::ControllerUnit;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 
 use IMPL::Class::Property;
 use IMPL::DOM::Transform::PostToDOM;
@@ -384,7 +384,7 @@
 
 package MyBooksUnit;
 use strict;
-use base qw(IMPL::Web::Application::ControllerUnit);
+use parent qw(IMPL::Web::Application::ControllerUnit);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Application/Response.pm
--- a/Lib/IMPL/Web/Application/Response.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Application/Response.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Web::Application::Response;
 use strict;
 
-use base qw(IMPL::Object IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Object::Autofill);
 
 require IMPL::Exception;
 require CGI;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler.pm
--- a/Lib/IMPL/Web/QueryHandler.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::QueryHandler;
 
-use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
 use IMPL::Class::Property;
 
 __PACKAGE__->PassThroughArgs;
@@ -39,7 +39,7 @@
 
 package MyHandler;
 
-use base qw(IMPL::Web::QueryHandler);
+use parent qw(IMPL::Web::QueryHandler);
 
 sub CTOR {
 	my ($this,%args) = @_;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler/JsonFormat.pm
--- a/Lib/IMPL/Web/QueryHandler/JsonFormat.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler/JsonFormat.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 package IMPL::Transform::Json;
 
 package IMPL::Web::QueryHandler::JsonFormat;
-use base qw(IMPL::Web::QueryHandler);
+use parent qw(IMPL::Web::QueryHandler);
 use Error qw(:try);
 use JSON;
 
@@ -28,7 +28,7 @@
 
 package IMPL::Transform::Json;
 
-use base qw(IMPL::Transform);
+use parent qw(IMPL::Transform);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 use Scalar::Util qw(refaddr);
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler/PageFormat.pm
--- a/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,5 +1,5 @@
 package IMPL::Web::QueryHandler::PageFormat;
-use base qw(IMPL::Web::QueryHandler IMPL::Object::Autofill);
+use parent qw(IMPL::Web::QueryHandler IMPL::Object::Autofill);
 use strict;
 
 __PACKAGE__->PassThroughArgs;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm
--- a/Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Web::QueryHandler::PathInfoRewrite;
 use strict;
 
-use base qw(IMPL::Web::QueryHandler);
+use parent qw(IMPL::Web::QueryHandler);
 __PACKAGE__->PassThroughArgs;
 
 use IMPL::Class::Property;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler/SecureCookie.pm
--- a/Lib/IMPL/Web/QueryHandler/SecureCookie.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler/SecureCookie.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Web::QueryHandler::SecureCookie;
 use strict;
 
-use base qw(IMPL::Web::QueryHandler);
+use parent qw(IMPL::Web::QueryHandler);
 use Digest::MD5 qw(md5_hex);
 
 use IMPL::Class::Property;
@@ -93,7 +93,7 @@
 
 =head1 DESCRIPTION
 
-C<use base qw(IMPL::Web::QueryHandler)>
+C<use parent qw(IMPL::Web::QueryHandler)>
 
 Возобновляет сессию пользователя на основе информации переданной через Cookie.
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/QueryHandler/UrlController.pm
--- a/Lib/IMPL/Web/QueryHandler/UrlController.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/QueryHandler/UrlController.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::QueryHandler::UrlController;
 use strict;
-use base qw(IMPL::Web::QueryHandler);
+use parent qw(IMPL::Web::QueryHandler);
 
 use IMPL::Class::Property;
 use IMPL::Exception;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Security.pm
--- a/Lib/IMPL/Web/Security.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Security.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::Security;
 use strict;
-use base qw(IMPL::Object IMPL::Security IMPL::Object::Autofill);
+use parent qw(IMPL::Object IMPL::Security IMPL::Object::Autofill);
 
 require IMPL::Web::Security::Session;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Security/Session.pm
--- a/Lib/IMPL/Web/Security/Session.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Security/Session.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::Security::Session;
 use strict;
-use base qw(IMPL::Security::Context);
+use parent qw(IMPL::Security::Context);
 
 use IMPL::Class::Property;
 
@@ -27,7 +27,7 @@
 # define a custom session for the application
 
 package App::Session;
-use base qw(IMPL::Web::Security::Session);
+use parent qw(IMPL::Web::Security::Session);
 
 use IMPL::Class::Property;
 
@@ -39,7 +39,7 @@
 
 =head1 DESCRIPTION
 
-C<use base qw(IMPL::Security::Context)>
+C<use parent qw(IMPL::Security::Context)>
 
 Представляет собой контекст безопасности, имеет идентификатор. Является базовым классом
 для расширения дополнительными атрибутами.
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/Security/User.pm
--- a/Lib/IMPL/Web/Security/User.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/Security/User.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,5 +1,5 @@
 package IMPL::Web::Security::User;
 
-use base qw(IMPL::Security::Principal);
+use parent qw(IMPL::Security::Principal);
 
 1;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/TT/Collection.pm
--- a/Lib/IMPL/Web/TT/Collection.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/TT/Collection.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Web::TT::Collection;
 use strict;
 
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/TT/Control.pm
--- a/Lib/IMPL/Web/TT/Control.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/TT/Control.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::TT::Control;
 
-use base qw(IMPL::Web::TT::Collection);
+use parent qw(IMPL::Web::TT::Collection);
 
 use IMPL::Class::Property;
 use IMPL::DOM::Property qw(_dom);
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/TT/Document.pm
--- a/Lib/IMPL/Web/TT/Document.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/TT/Document.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::DOM::Document IMPL::Object::Disposable);
+use parent qw(IMPL::DOM::Document IMPL::Object::Disposable);
 use Template::Context;
 use Template::Provider;
 use IMPL::Class::Property;
@@ -305,7 +305,7 @@
 
 =head1 DESCRIPTION
 
-C<use base qw(IMPL::DOM::Document)>
+C<use parent qw(IMPL::DOM::Document)>
 
 Документ, основанный на шаблоне Template::Toolkit. Позволяет загрузить шаблон,
 и сформировать окончательный документ. Является наследником C<IMPL::DOM::Node>,
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/IMPL/Web/TT/Form.pm
--- a/Lib/IMPL/Web/TT/Form.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Web/TT/Form.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 use strict;
 package IMPL::Web::TT::Form;
 
-use base qw(IMPL::Web::TT::Control);
+use parent qw(IMPL::Web::TT::Control);
 
 use IMPL::Class::Property;
 use IMPL::DOM::Navigator::SchemaNavigator();
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DB/Constraint/ForeignKey.pm
--- a/Lib/Schema/DB/Constraint/ForeignKey.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DB/Constraint/ForeignKey.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Schema::DB::Constraint::ForeignKey;
 use strict;
 use Common;
-use base qw(Schema::DB::Constraint);
+use parent qw(Schema::DB::Constraint);
 
 BEGIN {
     DeclareProperty ReferencedPrimaryKey => ACCESS_READ;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DB/Constraint/Index.pm
--- a/Lib/Schema/DB/Constraint/Index.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DB/Constraint/Index.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Schema::DB::Constraint::Index;
 use strict;
 use Common;
-use base qw(Schema::DB::Constraint);
+use parent qw(Schema::DB::Constraint);
 
 sub CTOR {
     my $this = shift;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DB/Constraint/PrimaryKey.pm
--- a/Lib/Schema/DB/Constraint/PrimaryKey.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DB/Constraint/PrimaryKey.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Schema::DB::Constraint::PrimaryKey;
 use strict;
 use Common;
-use base qw(Schema::DB::Constraint::Index);
+use parent qw(Schema::DB::Constraint::Index);
 
 BEGIN {
     DeclareProperty ConnectedFK => ACCESS_READ;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DB/Constraint/Unique.pm
--- a/Lib/Schema/DB/Constraint/Unique.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DB/Constraint/Unique.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,6 +1,6 @@
 package Schema::DB::Constraint::PrimaryKey;
 use strict;
 use Common;
-use base qw(Schema::DB::Constraint::Index);
+use parent qw(Schema::DB::Constraint::Index);
 
 1;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DB/Traits/mysql.pm
--- a/Lib/Schema/DB/Traits/mysql.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DB/Traits/mysql.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -468,7 +468,7 @@
 
 package Schema::DB::Traits::mysql;
 use Common;
-use base qw(Schema::DB::Traits);
+use parent qw(Schema::DB::Traits);
 
 BEGIN {
     DeclareProperty PendingConstraints => ACCESS_NONE;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DataSource.pm
--- a/Lib/Schema/DataSource.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DataSource.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -3,7 +3,7 @@
 package Schema::DataSource;
 use Common;
 use strict;
-use base qw(Object);
+use parent qw(Object);
 
 use BNFCompiler;
 use Schema::DB;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/DataSource/CDBIBuilder.pm
--- a/Lib/Schema/DataSource/CDBIBuilder.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/DataSource/CDBIBuilder.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -64,7 +64,7 @@
     $text = <<ModuleHeader;
 #autogenerated script don't edit
 package ${prefix}DBI;
-use base 'Class::DBI';
+use parent 'Class::DBI';
 
 require DateTime;
 
@@ -217,7 +217,7 @@
     my $tableName = $this->{$PropertyTables}->{$prop->Name}->Name;
     my $parentName = $this->GenerateClassName($prefix);
     my $text .= "package $packageName;\n";
-    $text .= "use base '$baseModule';\n\n";
+    $text .= "use parent '$baseModule';\n\n";
     $text .= "__PACKAGE__->table('`$tableName`');\n";
     $text .= "__PACKAGE__->columns(Essential => qw/_id parent value/);\n";
     $text .= "__PACKAGE__->has_a( parent => '$parentName');\n";
@@ -268,7 +268,7 @@
     my $listColumns = join ',', map { '\''. $_->Name . '\''} $this->{$Table}->Columns;
     
     $text .= "package $packageName;\n";
-    $text .= "use base '$baseModule'". ($this->{$Class}->Name->Name eq 'Map' ? ',\'CDBI::Map\'' : '' ).";\n\n";
+    $text .= "use parent '$baseModule'". ($this->{$Class}->Name->Name eq 'Map' ? ',\'CDBI::Map\'' : '' ).";\n\n";
     
     $text .= "__PACKAGE__->table('`$tableName`');\n";
     $text .= "__PACKAGE__->columns(Essential => $listColumns);\n";
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/Form/Container.pm
--- a/Lib/Schema/Form/Container.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/Form/Container.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Schema::Form::Container;
 use Form::Container;
 use Common;
-use base qw(Schema::Form::Item);
+use parent qw(Schema::Form::Item);
 
 BEGIN {
     DeclareProperty Children => ACCESS_READ;
diff -r 76515373dac0 -r 4267a2ac3d46 Lib/Schema/Form/Field.pm
--- a/Lib/Schema/Form/Field.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/Schema/Form/Field.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Schema::Form::Field;
 use strict;
 use Common;
-use base qw(Schema::Form::Item);
+use parent qw(Schema::Form::Item);
 
 BEGIN {
     DeclareProperty Format => ACCESS_READ;
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/DOM/Builder.pm
--- a/_test/Test/DOM/Builder.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/DOM/Builder.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 __PACKAGE__->PassThroughArgs;
 
 use IMPL::Class::Property;
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/DOM/Navigator.pm
--- a/_test/Test/DOM/Navigator.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/DOM/Navigator.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,5 +1,5 @@
 package Test::DOM::Navigator;
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/DOM/Node.pm
--- a/_test/Test/DOM/Node.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/DOM/Node.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Test qw(test shared failed cmparray);
 use IMPL::Class::Property;
 
@@ -227,7 +227,7 @@
 };
 
 package Test::DOM::TypedNode;
-use base qw(IMPL::DOM::Node);
+use parent qw(IMPL::DOM::Node);
 use IMPL::Class::Property;
 use IMPL::DOM::Property qw(_dom);
 
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/DOM/Schema.pm
--- a/_test/Test/DOM/Schema.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/DOM/Schema.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Test qw(test failed shared);
 use IMPL::Class::Property;
 
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/Object/List.pm
--- a/_test/Test/Object/List.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/Object/List.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Test qw(test cmparray failed);
 use IMPL::Object::List;
 __PACKAGE__->PassThroughArgs;
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/Resources/Format.pm
--- a/_test/Test/Resources/Format.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/Resources/Format.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Test qw(test failed);
 use IMPL::Resources::Format qw(FormatMessage);
 
@@ -10,7 +10,7 @@
 
 {
     package Args;
-    use base qw(IMPL::Object);
+    use parent qw(IMPL::Object);
     
     sub foo {
         return { name => 'Args::foo', value => 'some value'}
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/Web/Application.pm
--- a/_test/Test/Web/Application.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/Web/Application.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -1,7 +1,7 @@
 package Test::Web::Application::Instance;
 package Test::Web::Application;
 use strict;
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 
 use IMPL::Test qw(test failed);
 require IMPL::Web::Application;
@@ -40,7 +40,7 @@
 };
 
 package Test::Web::Application::Instance;
-use base qw(IMPL::Web::Application);
+use parent qw(IMPL::Web::Application);
 
 __PACKAGE__->PassThroughArgs;
 
diff -r 76515373dac0 -r 4267a2ac3d46 _test/Test/Web/TT.pm
--- a/_test/Test/Web/TT.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/_test/Test/Web/TT.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -3,7 +3,7 @@
 use warnings;
 use encoding 'cp1251';
 
-use base qw(IMPL::Test::Unit);
+use parent qw(IMPL::Test::Unit);
 use IMPL::Test qw(test failed);
 use IMPL::Web::TT::Document;
 __PACKAGE__->PassThroughArgs;