diff _test/Test/Resources/Format.pm @ 166:4267a2ac3d46

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 16ada169ca75
children
line wrap: on
line diff
--- 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'}