Mercurial > pub > Impl
comparison Lib/IMPL/Object/Serializable.pm @ 278:4ddb27ff4a0b
core refactoring
author | cin |
---|---|
date | Mon, 04 Feb 2013 02:10:37 +0400 |
parents | c8fe3f84feba |
children |
comparison
equal
deleted
inserted
replaced
277:6585464c4664 | 278:4ddb27ff4a0b |
---|---|
36 sub _impl_auto_save { | 36 sub _impl_auto_save { |
37 my (\$this,\$ctx) = \@_; | 37 my (\$this,\$ctx) = \@_; |
38 SAVE_METHOD | 38 SAVE_METHOD |
39 | 39 |
40 $code .= | 40 $code .= |
41 join "\n", map " ".'$ctx->AddVar('.$_->Name.' => ' . | 41 join "\n", map " ".'$ctx->AddVar('.$_->name.' => ' . |
42 ((not ref $_->Mutators and $_->Mutators & prop_list) ? ('[$this->'.$_->Class.'::'.$_->Name.'()]') : ('$this->'.$_->Class.'::'.$_->Name.'()')) . | 42 ($_->isList ? ('[$this->'.$_->class.'::'.$_->name.'()]') : ('$this->'.$_->class.'::'.$_->name.'()')) . |
43 ') if defined ' . '$this->'.$_->Class.'::'.$_->Name.'()' . ';', grep $_->canGet, $class->get_meta('IMPL::Class::PropertyInfo',undef,1); | 43 ') if defined ' . '$this->'.$_->class.'::'.$_->name.'()' . ';', grep $_->setter, $class->get_meta('IMPL::Class::PropertyInfo',undef,1); |
44 $code .= <<SAVE_METHOD; | 44 $code .= <<SAVE_METHOD; |
45 | 45 |
46 } | 46 } |
47 \\\&_impl_auto_save; | 47 \\\&_impl_auto_save; |
48 SAVE_METHOD | 48 SAVE_METHOD |