Mercurial > pub > Impl

comparison Lib/IMPL/Object/Serializable.pm @ 206:c8fe3f84feba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+IMPL::Web::Handlers::ViewSelector +IMPL::Web::Handlers::ErrorHandler *IMPL::Web::Handlers::RestController moved types mappings to ViewSelector
author sergey
date Thu, 03 May 2012 16:48:39 +0400
parents 16ada169ca75
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
205:891c04080658 206:c8fe3f84feba
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 "\t".'$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 ((not ref $_->Mutators and $_->Mutators & prop_list) ? ('[$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 $_->canGet, $class->get_meta('IMPL::Class::PropertyInfo',undef,1);
44 $code .= <<SAVE_METHOD; 44 $code .= <<SAVE_METHOD;
45 45
46 } 46 }