Mercurial > pub > Impl
changeset 166:4267a2ac3d46
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
line wrap: on
line diff
--- 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 схема - это документ, состоящий из определенных узлов, описывающая структуру других документов.
--- 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;
--- 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;
--- 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;
--- 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;
--- 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);
--- 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;
--- 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;
--- 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;
--- 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;
--- 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 {
--- 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 {
--- 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] }
--- 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 {
--- 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 {
--- 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 {
--- 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);
--- 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' }
--- 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;
--- 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
--- 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;
--- 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;
--- 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;
--- 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');
--- 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;
--- 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;
--- 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 {
--- 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;
--- 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); #....
--- 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) = @_;
--- 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;
--- 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;
--- 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;
--- 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 [
--- 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)]);
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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 {
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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 {
--- 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;
--- 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;
--- 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;
--- 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', @_ }
--- 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 или иной совместимый модуль.
--- 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;
--- 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;
--- 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;
--- 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) = @_;
--- 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);
--- 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;
--- 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;
--- 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.
--- 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;
--- 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;
--- 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)> Представляет собой контекст безопасности, имеет идентификатор. Является базовым классом для расширения дополнительными атрибутами.
--- 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;
--- 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;
--- 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);
--- 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>,
--- 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();
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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;
--- 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";
--- 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;
--- 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;
--- 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;
--- 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;
--- 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);
--- 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;
--- 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;
--- 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'}
--- 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;
--- 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;