Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Schema/ComplexType.pm @ 125:a4b0a819bbda
Small fixes in IMPL::DOM::Schema
author | wizard |
---|---|
date | Thu, 10 Jun 2010 17:43:51 +0400 |
parents | e30bdd040fe3 |
children | 1e7f03414b65 |
comparison
equal
deleted
inserted
replaced
124:e30bdd040fe3 | 125:a4b0a819bbda |
---|---|
34 my ($this, $node,$ctx) = @_; | 34 my ($this, $node,$ctx) = @_; |
35 | 35 |
36 if ($this->{$nativeType}) { | 36 if ($this->{$nativeType}) { |
37 return new IMPL::DOM::Schema::ValidationError( | 37 return new IMPL::DOM::Schema::ValidationError( |
38 Node => $node, | 38 Node => $node, |
39 Source => $ctx && $ctx->{Source} || $this, | 39 Source => $ctx->{Source} || $this, |
40 Schema => $this, | 40 Schema => $this, |
41 Message => $this->messageWrongType | 41 Message => $this->messageWrongType |
42 ) unless $node->isa($this->{$nativeType}); | 42 ) unless $node->isa($this->{$nativeType}); |
43 } | 43 } |
44 return $this->SUPER::Validate($node,$ctx); | 44 return $this->SUPER::Validate($node,$ctx); |