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;