Mercurial > pub > Impl

comparison _test/Test/Web/Application.pm @ 166:4267a2ac3d46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 76b878ad6596
children d1676be8afcc
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package Test::Web::Application::Instance; 1 package Test::Web::Application::Instance;
2 package Test::Web::Application; 2 package Test::Web::Application;
3 use strict; 3 use strict;
4 use base qw(IMPL::Test::Unit); 4 use parent qw(IMPL::Test::Unit);
5 5
6 use IMPL::Test qw(test failed); 6 use IMPL::Test qw(test failed);
7 require IMPL::Web::Application; 7 require IMPL::Web::Application;
8 8
9 __PACKAGE__->PassThroughArgs; 9 __PACKAGE__->PassThroughArgs;
38 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml'); 38 my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
39 $instance->Run(); 39 $instance->Run();
40 }; 40 };
41 41
42 package Test::Web::Application::Instance; 42 package Test::Web::Application::Instance;
43 use base qw(IMPL::Web::Application); 43 use parent qw(IMPL::Web::Application);
44 44
45 __PACKAGE__->PassThroughArgs; 45 __PACKAGE__->PassThroughArgs;
46 46
47 use IMPL::Class::Property; 47 use IMPL::Class::Property;
48 48