# HG changeset patch # User wizard # Date 1268228506 -10800 # Node ID 8d0ae27d15c1452743f454da551e1f94b9f369bf # Parent b0c068da93acf7d4321594bdf1e22e82e212009a minor changes diff -r b0c068da93ac -r 8d0ae27d15c1 Lib/IMPL/Config/Activator.pm --- a/Lib/IMPL/Config/Activator.pm Tue Mar 09 19:47:39 2010 +0300 +++ b/Lib/IMPL/Config/Activator.pm Wed Mar 10 16:41:46 2010 +0300 @@ -7,7 +7,6 @@ BEGIN { public property factory => prop_all; public property parameters => prop_all; - public property depends => prop_all | prop_list; public property object => prop_get | owner_set; } diff -r b0c068da93ac -r 8d0ae27d15c1 Lib/IMPL/Object/PublicSerializable.pm --- 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 { diff -r b0c068da93ac -r 8d0ae27d15c1 _test/Test/Web/Application.pm --- a/_test/Test/Web/Application.pm Tue Mar 09 19:47:39 2010 +0300 +++ b/_test/Test/Web/Application.pm Wed Mar 10 16:41:46 2010 +0300 @@ -26,6 +26,12 @@ return 1; }; +test SaveXml => sub { + my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); + + warn $instance->xml; +}; + package Test::Web::Application::Instance; use base qw(IMPL::Web::Application);