Mercurial > pub > Impl

diff Lib/IMPL/Class/Property/Accessor.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 6253872024a4
line wrap: on
line diff
--- a/Lib/IMPL/Class/Property/Accessor.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Class/Property/Accessor.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -3,33 +3,33 @@
 use parent qw(IMPL::Class::Property::Base);
 
 sub factoryParams {
-	$_[0]->SUPER::factoryParams, qw($field);
+    $_[0]->SUPER::factoryParams, qw($field);
 }
 
 sub RemapFactoryParams {
-	my ($self,$propInfo) = @_;
-	
-	return $self->SUPER::RemapFactoryParams($propInfo),$propInfo->Name;
+    my ($self,$propInfo) = @_;
+    
+    return $self->SUPER::RemapFactoryParams($propInfo),$propInfo->Name;
 }
 
 sub GenerateGet {
-	'return $this->get($field);';
+    'return $this->get($field);';
 }
 
 sub GenerateSet {
-	'return $this->set($field,@_);';
+    'return $this->set($field,@_);';
 }
 
 sub GenerateSetList {
-	'my $val = IMPL::Object::List->new( (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_] );
-	$this->set($field,$val);	
-	return(	wantarray ?	@{ $val } : $val );';
+    'my $val = IMPL::Object::List->new( (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_] );
+    $this->set($field,$val);    
+    return(    wantarray ?    @{ $val } : $val );';
 }
 
 sub GenerateGetList {
-	'my $val = $this->get($field);
-	$this->set($field,$val = IMPL::Object::List->new()) unless $val;
-	return(	wantarray ?	@{ $val	} : $val );';
+    'my $val = $this->get($field);
+    $this->set($field,$val = IMPL::Object::List->new()) unless $val;
+    return(    wantarray ?    @{ $val    } : $val );';
 }
 
 1;