diff Lib/IMPL/Test/Unit.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 f8de52d3c112
children 2184fa28b49e
line wrap: on
line diff
--- 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 {