comparison 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
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 package IMPL::DOM::Schema::Node; 1 package IMPL::DOM::Schema::Node;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Node); 5 use parent qw(IMPL::DOM::Node);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 use IMPL::DOM::Property qw(_dom); 7 use IMPL::DOM::Property qw(_dom);
8 use IMPL::Class::Property::Direct; 8 use IMPL::Class::Property::Direct;
9 9
10 BEGIN { 10 BEGIN {
73 =pod 73 =pod
74 74
75 =head1 SYNOPSIS 75 =head1 SYNOPSIS
76 76
77 package SchemaEntity; 77 package SchemaEntity;
78 use base qw(IMPL::DOM::Schema::Node); 78 use parent qw(IMPL::DOM::Schema::Node);
79 79
80 sub Validate { 80 sub Validate {
81 my ($this,$node) = @_; 81 my ($this,$node) = @_;
82 } 82 }
83 83