Mercurial > pub > Impl

comparison Lib/IMPL/Config.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents b0c068da93ac
children 2f31ecabe9ea
comparison
equal deleted inserted replaced
62:c64bd1bf727d 63:76b878ad6596
74 return $str; 74 return $str;
75 } 75 }
76 76
77 sub save { 77 sub save {
78 my ($this,$ctx) = @_; 78 my ($this,$ctx) = @_;
79
80 my $val;
79 81
80 foreach my $info ($this->get_meta('IMPL::Class::PropertyInfo')) { 82 $val = $this->rawGet($_) and $ctx->AddVar($_ => $val) foreach map $_->Name, $this->get_meta(
81 next if $info->Access != IMPL::Class::Member::MOD_PUBLIC; # save only public properties 83 'IMPL::Class::PropertyInfo',
82 84 sub {
83 my $name = $info->Name; 85 $_->Access == IMPL::Class::Member::MOD_PUBLIC and
84 $ctx->AddVar($name => $this->rawGet($name)) if $this->rawGet($name); 86 $_->canGet;
85 } 87 },
86 88 1);
87 } 89 }
88 90
89 sub spawn { 91 sub spawn {
90 goto &LoadXMLFile; 92 goto &LoadXMLFile;
91 } 93 }