Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/NodeSet.pm @ 236:2904da230022
DOM refactoring
author | sergey |
---|---|
date | Mon, 15 Oct 2012 04:23:01 +0400 |
parents | d1676be8afcc |
children | b8c724f6de36 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/NodeSet.pm Fri Oct 12 02:08:51 2012 +0400 +++ b/Lib/IMPL/DOM/Schema/NodeSet.pm Mon Oct 15 04:23:01 2012 +0400 @@ -45,11 +45,11 @@ if (my $info = $nodes{$child->nodeName} || $anyNode) { $info->{Seen}++; push @errors,new IMPL::DOM::Schema::ValidationError ( - Source => $sourceSchema, - Node => $child, - Parent => $node, - Schema => $info->{Schema}, - Message => $this->messageMax + source => $sourceSchema, + node => $child, + parent => $node, + schema => $info->{Schema}, + message => $this->messageMax ) if ($info->{Max} and $info->{Seen} > $info->{Max}); if (my @localErrors = $info->{Schema}->Validate($child)) { @@ -57,20 +57,20 @@ } } else { push @errors, new IMPL::DOM::Schema::ValidationError ( - Source => $sourceSchema, - Node => $child, - Parent => $node, - Message => $this->messageUnexpected + source => $sourceSchema, + node => $child, + parent => $node, + message => $this->messageUnexpected ) } } foreach my $info (values %nodes) { push @errors, new IMPL::DOM::Schema::ValidationError ( - Source => $sourceSchema, - Schema => $info->{Schema}, - Parent => $node, - Message => $this->messageMin + source => $sourceSchema, + schema => $info->{Schema}, + parent => $node, + message => $this->messageMin ) if $info->{Min} > $info->{Seen}; }