Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/ComplexType.pm @ 125:a4b0a819bbda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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);