diff Lib/IMPL/Object/Accessor.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 b0c068da93ac
children d1676be8afcc
line wrap: on
line diff
--- 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;