Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/SimpleNode.pm @ 20:267460284fb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM Schema
author Sergey
date Tue, 22 Sep 2009 17:17:38 +0400
parents 1ca530e5c9c5
children 16ada169ca75
comparison
equal deleted inserted replaced
19:1ca530e5c9c5 20:267460284fb3
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Schema::Node); 5 use base qw(IMPL::DOM::Schema::Node);
6 6
7 __PACKAGE__->PassThroughArgs; 7 our %CTOR = (
8 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args}
9 );
8 10
9 sub Validate { 11 sub Validate {
10 my ($this,$node) = @_; 12 my ($this,$node) = @_;
11 13
12 map $_->Validate($node), @{$this->childNodes}; 14 map $_->Validate($node), @{$this->childNodes};