comparison _test/Test/Web/Application.pm @ 61:8d0ae27d15c1

minor changes
author wizard
date Wed, 10 Mar 2010 16:41:46 +0300
parents b0c068da93ac
children 76b878ad6596
comparison
equal deleted inserted replaced
60:b0c068da93ac 61:8d0ae27d15c1
24 my $ds = $instance->dataSource; 24 my $ds = $instance->dataSource;
25 25
26 return 1; 26 return 1;
27 }; 27 };
28 28
29 test SaveXml => sub {
30 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
31
32 warn $instance->xml;
33 };
34
29 package Test::Web::Application::Instance; 35 package Test::Web::Application::Instance;
30 use base qw(IMPL::Web::Application); 36 use base qw(IMPL::Web::Application);
31 37
32 __PACKAGE__->PassThroughArgs; 38 __PACKAGE__->PassThroughArgs;
33 39