diff Lib/IMPL/DOM/Schema/Property.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents fafe56cfcd69
children 9dd67fa91ee3
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Property.pm	Wed Sep 30 17:43:52 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/Property.pm	Mon Oct 05 00:48:49 2009 +0400
@@ -13,8 +13,8 @@
     public property RequiredMessage => prop_all;
 }
 
-our %CTOR = {
-    'IMPL::DOM::Schema::SimleNode' => sub {
+our %CTOR = (
+    'IMPL::DOM::Schema::SimpleNode' => sub {
         my %args = @_;
         
         $args{maxOccur} = 1;
@@ -23,7 +23,7 @@
         
         return %args;
     }
-};
+);
 
 sub CTOR {
     my ($this,%args) = @_;
@@ -39,7 +39,7 @@
         my $nodeProp = new IMPL::DOM::Node(nodeName => '::property', nodeValue => $node->$prop() || $node->nodePropety($prop));
         
         if (! $nodeProp->nodeValue) {
-            return new IMPL::DOM::Schema::VaidationError(
+            return new IMPL::DOM::Schema::ValidationError(
                 Message => 
             );
         }