Mercurial > pub > Impl
diff Lib/IMPL/Web/Application.pm @ 170:b88b7fe60aa3
refactoring
author | sourcer |
---|---|
date | Tue, 24 May 2011 01:11:16 +0400 |
parents | 4267a2ac3d46 |
children | d1676be8afcc |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application.pm Tue May 17 00:04:28 2011 +0400 +++ b/Lib/IMPL/Web/Application.pm Tue May 24 01:11:16 2011 +0400 @@ -12,20 +12,19 @@ __PACKAGE__->PassThroughArgs; -BEGIN { - public property handlerError => prop_all; - public property actionFactory => prop_all; - public property handlersQuery => prop_all | prop_list; - public property responseCharset => prop_all; - public property security => prop_all; - public property options => prop_all; - public property fetchRequestMethod => prop_all; -} +public property handlerError => prop_all; +public property actionFactory => prop_all; +public property handlersQuery => prop_all | prop_list; +public property responseCharset => prop_all; +public property security => prop_all; +public property options => prop_all; +public property fetchRequestMethod => prop_all; + sub CTOR { my ($this) = @_; - $this->actionFactory('IMPL::Web::Application::Action') unless $this->actionFactory; + $this->actionFactory(typeof IMPL::Web::Application::Action) unless $this->actionFactory; $this->responseCharset('utf-8') unless $this->responseCharset; $this->fetchRequestMethod(\&defaultFetchRequest) unless $this->fetchRequestMethod; $this->handlerError(\&defaultHandlerError) unless $this->handlerError;