Mercurial > pub > Impl

diff Lib/IMPL/Object/PublicSerializable.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 4ddb27ff4a0b
line wrap: on
line diff
--- a/Lib/IMPL/Object/PublicSerializable.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Object/PublicSerializable.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -15,23 +15,23 @@
 }
 
 sub save {
-	my ($this,$ctx) = @_;
-	
-	my %seen;
-	
-	my $val;
-	
-	defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach
-		map $_->Name,$this->get_meta(
-			'IMPL::Class::PropertyInfo',
-			sub {
-				$_->Access == IMPL::Class::Member::MOD_PUBLIC and
-				$_->canGet and
-				not $_->ownerSet and
-				not $seen{$_->Name} ++
-			},
-			1
-		);
+    my ($this,$ctx) = @_;
+    
+    my %seen;
+    
+    my $val;
+    
+    defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach
+        map $_->Name,$this->get_meta(
+            'IMPL::Class::PropertyInfo',
+            sub {
+                $_->Access == IMPL::Class::Member::MOD_PUBLIC and
+                $_->canGet and
+                not $_->ownerSet and
+                not $seen{$_->Name} ++
+            },
+            1
+        );
 }
 
 1;