Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application.pm @ 170:b88b7fe60aa3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring
author sourcer
date Tue, 24 May 2011 01:11:16 +0400
parents 4267a2ac3d46
children d1676be8afcc
comparison
equal deleted inserted replaced
169:fd92830036c3 170:b88b7fe60aa3
10 use IMPL::Class::Property; 10 use IMPL::Class::Property;
11 use CGI; 11 use CGI;
12 12
13 __PACKAGE__->PassThroughArgs; 13 __PACKAGE__->PassThroughArgs;
14 14
15 BEGIN { 15 public property handlerError => prop_all;
16 public property handlerError => prop_all; 16 public property actionFactory => prop_all;
17 public property actionFactory => prop_all; 17 public property handlersQuery => prop_all | prop_list;
18 public property handlersQuery => prop_all | prop_list; 18 public property responseCharset => prop_all;
19 public property responseCharset => prop_all; 19 public property security => prop_all;
20 public property security => prop_all; 20 public property options => prop_all;
21 public property options => prop_all; 21 public property fetchRequestMethod => prop_all;
22 public property fetchRequestMethod => prop_all; 22
23 }
24 23
25 sub CTOR { 24 sub CTOR {
26 my ($this) = @_; 25 my ($this) = @_;
27 26
28 $this->actionFactory('IMPL::Web::Application::Action') unless $this->actionFactory; 27 $this->actionFactory(typeof IMPL::Web::Application::Action) unless $this->actionFactory;
29 $this->responseCharset('utf-8') unless $this->responseCharset; 28 $this->responseCharset('utf-8') unless $this->responseCharset;
30 $this->fetchRequestMethod(\&defaultFetchRequest) unless $this->fetchRequestMethod; 29 $this->fetchRequestMethod(\&defaultFetchRequest) unless $this->fetchRequestMethod;
31 $this->handlerError(\&defaultHandlerError) unless $this->handlerError; 30 $this->handlerError(\&defaultHandlerError) unless $this->handlerError;
32 } 31 }
33 32