Mercurial > pub > Impl
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 => ); }