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};
     }