Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application.pm @ 233:3cebcf6fdb9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring, cleaning code
author sergey
date Thu, 11 Oct 2012 04:53:08 +0400
parents 6d8092d8ce1b
children fe9d62d9054d
comparison
equal deleted inserted replaced
232:5c82eec23bb6 233:3cebcf6fdb9b
1 package IMPL::Web::Application; 1 package IMPL::Web::Application;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use IMPL::lang qw(:declare :constants);
6 use CGI; 5 use CGI;
7 use Carp qw(carp); 6 use Carp qw(carp);
7 use IMPL::Const qw(:prop);
8 8
9 use IMPL::declare { 9 use IMPL::declare {
10 require => { 10 require => {
11 TAction => 'IMPL::Web::Application::Action', 11 TAction => 'IMPL::Web::Application::Action',
12 HttpResponse => 'IMPL::Web::HttpResponse', 12 HttpResponse => 'IMPL::Web::HttpResponse',
18 base => [ 18 base => [
19 'IMPL::Config' => '@_', 19 'IMPL::Config' => '@_',
20 'IMPL::Object::Singleton' => '@_' 20 'IMPL::Object::Singleton' => '@_'
21 ], 21 ],
22 props => [ 22 props => [
23 actionFactory => PROP_ALL, 23 actionFactory => PROP_RW,
24 handlers => PROP_ALL | PROP_LIST, 24 handlers => PROP_RW | PROP_LIST,
25 security => PROP_ALL, 25 security => PROP_RW,
26 options => PROP_ALL, 26 options => PROP_RW,
27 fetchRequestMethod => PROP_ALL, 27 fetchRequestMethod => PROP_RW,
28 output => PROP_ALL 28 output => PROP_RW
29 ] 29 ]
30 }; 30 };
31 31
32 sub CTOR { 32 sub CTOR {
33 my ($this) = @_; 33 my ($this) = @_;