Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/SimpleType.pm @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author | cin |
---|---|
date | Tue, 10 Apr 2012 20:08:29 +0400 |
parents | d1676be8afcc |
children | 2904da230022 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleType.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/Lib/IMPL/DOM/Schema/SimpleType.pm Tue Apr 10 20:08:29 2012 +0400 @@ -32,21 +32,21 @@ } sub Validate { - my ($this, $node, $ctx) = @_; - - if ($this->{$nativeType}) { - return new IMPL::DOM::Schema::ValidationError( - Node => $node, - Source => $ctx && $ctx->{Source} || $this, - Schema => $this, - Message => $this->messageWrongType - ) unless $node->isa($this->{$nativeType}); - } - return $this->SUPER::Validate($node,$ctx); + my ($this, $node, $ctx) = @_; + + if ($this->{$nativeType}) { + return new IMPL::DOM::Schema::ValidationError( + Node => $node, + Source => $ctx && $ctx->{Source} || $this, + Schema => $this, + Message => $this->messageWrongType + ) unless $node->isa($this->{$nativeType}); + } + return $this->SUPER::Validate($node,$ctx); } sub qname { - $_[0]->nodeName.'[type='.$_[0]->type.']'; + $_[0]->nodeName.'[type='.$_[0]->type.']'; } 1;