--- a/Lib/IMPL/Class/Property/Direct.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Class/Property/Direct.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -11,7 +11,7 @@
 __PACKAGE__->mk_accessors( qw(ExportField) );
 
 sub factoryParams {
-	$_[0]->SUPER::factoryParams, qw($field);
+    $_[0]->SUPER::factoryParams, qw($field);
 }
 
 my $default = __PACKAGE__->new({ExportField => 1});
@@ -24,57 +24,57 @@
 
 
 sub GenerateGet {
-	'return ($this->{$field});';
+    'return ($this->{$field});';
 }
 
 sub GenerateSet {
-	'return ($this->{$field} = $_[0])';
+    'return ($this->{$field} = $_[0])';
 }
 
 sub GenerateSetList {
-	'return(
-		wantarray ?
-		@{ $this->{$field} = IMPL::Object::List->new(
-			(@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
-		)} : 
-		($this->{$field} = IMPL::Object::List->new(
-			(@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
-		))
-	);';
+    'return(
+        wantarray ?
+        @{ $this->{$field} = IMPL::Object::List->new(
+            (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
+        )} : 
+        ($this->{$field} = IMPL::Object::List->new(
+            (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
+        ))
+    );';
 }
 
 sub GenerateGetList {
-	'return(
-		wantarray ?
-		@{ $this->{$field} ?
-			$this->{$field} :
-			( $this->{$field} = IMPL::Object::List->new() )
-		} :
-		( $this->{$field} ?
-			$this->{$field} :
-			( $this->{$field} = IMPL::Object::List->new() )
-		)
-	);';
+    'return(
+        wantarray ?
+        @{ $this->{$field} ?
+            $this->{$field} :
+            ( $this->{$field} = IMPL::Object::List->new() )
+        } :
+        ( $this->{$field} ?
+            $this->{$field} :
+            ( $this->{$field} = IMPL::Object::List->new() )
+        )
+    );';
 }
 
 sub RemapFactoryParams {
-	my ($self,$propInfo) = @_;
-	
-	return $self->SUPER::RemapFactoryParams($propInfo),$self->FieldName($propInfo);
+    my ($self,$propInfo) = @_;
+    
+    return $self->SUPER::RemapFactoryParams($propInfo),$self->FieldName($propInfo);
 }
 
 sub Make {
-	my ($self,$propInfo) = @_;
-	
-	$self->SUPER::Make($propInfo);
-	
-	{
-		no strict 'refs';
-		if (ref $self and $self->ExportField) {
-			my $field = $self->FieldName($propInfo);
-			*{$propInfo->Class.'::'.$propInfo->Name} = \$field;
-		}
-	}
+    my ($self,$propInfo) = @_;
+    
+    $self->SUPER::Make($propInfo);
+    
+    {
+        no strict 'refs';
+        if (ref $self and $self->ExportField) {
+            my $field = $self->FieldName($propInfo);
+            *{$propInfo->Class.'::'.$propInfo->Name} = \$field;
+        }
+    }
 }
 
 sub FieldName {