Mercurial > pub > Impl
diff Lib/IMPL/Object/Serializable.pm @ 278:4ddb27ff4a0b
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; }