Mercurial > pub > Impl
diff Lib/IMPL/Object/PublicSerializable.pm @ 61:8d0ae27d15c1
minor changes
author | wizard |
---|---|
date | Wed, 10 Mar 2010 16:41:46 +0300 |
parents | b0c068da93ac |
children | d1676be8afcc |
line wrap: on
line diff
--- a/Lib/IMPL/Object/PublicSerializable.pm Tue Mar 09 19:47:39 2010 +0300 +++ b/Lib/IMPL/Object/PublicSerializable.pm Wed Mar 10 16:41:46 2010 +0300 @@ -19,7 +19,9 @@ my %seen; - $ctx->AddVar($_,$this->$_()) foreach + my $val; + + defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach map $_->Name,$this->get_meta( 'IMPL::Class::PropertyInfo', sub {