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 {