Mercurial > pub > Impl

diff Lib/IMPL/Object/Serializable.pm @ 278:4ddb27ff4a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents c8fe3f84feba
children
line wrap: on
line diff
--- a/Lib/IMPL/Object/Serializable.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Object/Serializable.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -38,9 +38,9 @@
 SAVE_METHOD
     
         $code .=
-        join "\n", map "    ".'$ctx->AddVar('.$_->Name.' => ' .
-            ((not ref $_->Mutators and $_->Mutators & prop_list) ? ('[$this->'.$_->Class.'::'.$_->Name.'()]') : ('$this->'.$_->Class.'::'.$_->Name.'()')) .
-        ') if defined ' . '$this->'.$_->Class.'::'.$_->Name.'()' . ';', grep $_->canGet, $class->get_meta('IMPL::Class::PropertyInfo',undef,1);
+        join "\n", map "    ".'$ctx->AddVar('.$_->name.' => ' .
+            ($_->isList ? ('[$this->'.$_->class.'::'.$_->name.'()]') : ('$this->'.$_->class.'::'.$_->name.'()')) .
+        ') if defined ' . '$this->'.$_->class.'::'.$_->name.'()' . ';', grep $_->setter, $class->get_meta('IMPL::Class::PropertyInfo',undef,1);
         $code .= <<SAVE_METHOD;
 
 }