Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Schema/SimpleType.pm @ 236:2904da230022
DOM refactoring
author | sergey |
---|---|
date | Mon, 15 Oct 2012 04:23:01 +0400 |
parents | 4d0e1962161c |
children | b8c724f6de36 |
comparison
equal
deleted
inserted
replaced
235:a4d9126edcbb | 236:2904da230022 |
---|---|
34 sub Validate { | 34 sub Validate { |
35 my ($this, $node, $ctx) = @_; | 35 my ($this, $node, $ctx) = @_; |
36 | 36 |
37 if ($this->{$nativeType}) { | 37 if ($this->{$nativeType}) { |
38 return new IMPL::DOM::Schema::ValidationError( | 38 return new IMPL::DOM::Schema::ValidationError( |
39 Node => $node, | 39 node => $node, |
40 Source => $ctx && $ctx->{Source} || $this, | 40 source => $ctx && $ctx->{Source} || $this, |
41 Schema => $this, | 41 schema => $this, |
42 Message => $this->messageWrongType | 42 message => $this->messageWrongType |
43 ) unless $node->isa($this->{$nativeType}); | 43 ) unless $node->isa($this->{$nativeType}); |
44 } | 44 } |
45 return $this->SUPER::Validate($node,$ctx); | 45 return $this->SUPER::Validate($node,$ctx); |
46 } | 46 } |
47 | 47 |