Mercurial > pub > Impl
changeset 61:8d0ae27d15c1
minor changes
| author | wizard |
|---|---|
| date | Wed, 10 Mar 2010 16:41:46 +0300 |
| parents | b0c068da93ac |
| children | c64bd1bf727d |
| files | Lib/IMPL/Config/Activator.pm Lib/IMPL/Object/PublicSerializable.pm _test/Test/Web/Application.pm |
| diffstat | 3 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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; }
--- 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 {
--- 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);