diff Lib/IMPL/DOM/Schema/Node.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 1e7f03414b65
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Node.pm	Mon Mar 28 01:36:24 2011 +0400
+++ b/Lib/IMPL/DOM/Schema/Node.pm	Sat Apr 23 23:06:48 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;
 use IMPL::DOM::Property qw(_dom);
 use IMPL::Class::Property::Direct;
@@ -75,7 +75,7 @@
 =head1 SYNOPSIS
 
 package SchemaEntity;
-use base qw(IMPL::DOM::Schema::Node);
+use parent qw(IMPL::DOM::Schema::Node);
 
 sub Validate {
     my ($this,$node) = @_;