Mercurial > pub > Impl
diff _test/Test/ORM/Schema.pm @ 165:76515373dac0
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:06:48 +0400 |
parents | 16ada169ca75 |
children |
line wrap: on
line diff
--- 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',