comparison Lib/IMPL/DOM/Schema/ComplexType.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->{Source} || $this, 40 source => $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