Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/SimpleNode.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 | b8c724f6de36 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleNode.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/Lib/IMPL/DOM/Schema/SimpleNode.pm Tue Apr 10 20:08:29 2012 +0400 @@ -8,26 +8,26 @@ use IMPL::DOM::Property qw(_dom); BEGIN { - public _dom _direct property inflator => prop_get; - public _dom _direct property messageInflateError => prop_get; + public _dom _direct property inflator => prop_get; + public _dom _direct property messageInflateError => prop_get; } our %CTOR = ( 'IMPL::DOM::Schema::Node' => sub { - my %args = @_; - $args{nodeName} ||= 'SimpleNode'; - delete @args{qw(inflator messageInflateError)}; - %args + my %args = @_; + $args{nodeName} ||= 'SimpleNode'; + delete @args{qw(inflator messageInflateError)}; + %args } ); sub CTOR { - my ($this,%args) = @_; - - if ( $args{inflator} ) { - $this->{$inflator} = $args{inflator} ; - $this->{$messageInflateError} = exists $args{messageInflateError} ? $args{messageInflateError} : 'Failed to inflate nodeValue %Node.path%: %Error%'; - } + my ($this,%args) = @_; + + if ( $args{inflator} ) { + $this->{$inflator} = $args{inflator} ; + $this->{$messageInflateError} = exists $args{messageInflateError} ? $args{messageInflateError} : 'Failed to inflate nodeValue %Node.path%: %Error%'; + } } sub Validate { @@ -41,13 +41,13 @@ } sub inflateValue { - my ($this,$value) = @_; - - if ( my $inflator = $this->inflator ) { - return $inflator->new($value); - } else { - return $value; - } + my ($this,$value) = @_; + + if ( my $inflator = $this->inflator ) { + return $inflator->new($value); + } else { + return $value; + } } 1;