Mercurial > pub > Impl

comparison 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
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