Mercurial > pub > Impl

comparison Lib/IMPL/Object/PublicSerializable.pm @ 61:8d0ae27d15c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author wizard
date Wed, 10 Mar 2010 16:41:46 +0300
parents b0c068da93ac
children d1676be8afcc
comparison
equal deleted inserted replaced
60:b0c068da93ac 61:8d0ae27d15c1
17 sub save { 17 sub save {
18 my ($this,$ctx) = @_; 18 my ($this,$ctx) = @_;
19 19
20 my %seen; 20 my %seen;
21 21
22 $ctx->AddVar($_,$this->$_()) foreach 22 my $val;
23
24 defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach
23 map $_->Name,$this->get_meta( 25 map $_->Name,$this->get_meta(
24 'IMPL::Class::PropertyInfo', 26 'IMPL::Class::PropertyInfo',
25 sub { 27 sub {
26 $_->Access == IMPL::Class::Member::MOD_PUBLIC and 28 $_->Access == IMPL::Class::Member::MOD_PUBLIC and
27 $_->canGet and 29 $_->canGet and