Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/NodeList.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 7f00786f8210
comparison
equal deleted inserted replaced
19:1ca530e5c9c5 20:267460284fb3
24 24
25 sub Validate { 25 sub Validate {
26 my ($this,$node) = @_; 26 my ($this,$node) = @_;
27 27
28 my @nodes = map { 28 my @nodes = map {
29 {nodeName => $_->nodeName, anyNode => $_->isa('IMPL::DOM::Schema::AnyNode') , Schema => $_, Min => $_->minOccur eq 'unbounded' ? undef : $_->maxOccur, Max => $_->maxOccur, Seen => 0 } 29 {nodeName => $_->name, anyNode => $_->isa('IMPL::DOM::Schema::AnyNode') , Schema => $_, Min => $_->minOccur eq 'unbounded' ? undef : $_->maxOccur, Max => $_->maxOccur, Seen => 0 }
30 } @{$this->childNodes}; 30 } @{$this->childNodes};
31 31
32 my $info = shift @nodes; 32 my $info = shift @nodes;
33 33
34 foreach my $child ( @{$node->childNodes} ) { 34 foreach my $child ( @{$node->childNodes} ) {