Mercurial > pub > Impl
diff Lib/IMPL/Web/Application.pm @ 213:d6e2ea24af08
sync
author | sergey |
---|---|
date | Fri, 03 Aug 2012 01:15:15 +0400 |
parents | 2ffe6f661605 |
children | 47f77e6409f7 |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application.pm Fri Jun 29 19:24:15 2012 +0400 +++ b/Lib/IMPL/Web/Application.pm Fri Aug 03 01:15:15 2012 +0400 @@ -19,7 +19,7 @@ }; BEGIN { - public property handlerError => PROP_ALL; + public property errorHandler => PROP_ALL; public property actionFactory => PROP_ALL; public property handlers => PROP_ALL | PROP_LIST; public property responseCharset => PROP_ALL; @@ -44,7 +44,7 @@ $this->actionFactory(TAction) unless $this->actionFactory; $this->responseCharset('utf-8') unless $this->responseCharset; $this->fetchRequestMethod(\&defaultFetchRequest) unless $this->fetchRequestMethod; - $this->handlerError(\&defaultHandlerError) unless $this->handlerError; + $this->errorHandler(\&defaultErrorHandler) unless $this->errorHandler; } sub Run { @@ -71,7 +71,7 @@ if ($@) { my $e = $@; # we are expecting this method to be safe otherwise we can trust nothing in this wolrd - $this->handlerError()->($this,$action,$e); + $this->errorHandler()->($this,$action,$e); } } } @@ -138,7 +138,7 @@ } } -sub defaultHandlerError { +sub defaultErrorHandler { my ($this,$action,$e) = @_; warn $e; if ( eval { $action->ReinitResponse(); 1; } ) { @@ -208,7 +208,7 @@ =head1 DESCRIPTION -C< use parent qw( IMPL::Config IMPL::Object::Singleton )> +C< inherits IMPL::Config, IMPL::Object::Singleton > Зкземпляр приложения содержит в себе глобальные настройки, реализует контроллер запросов, в качестве источника запросов используется CGI или иной совместимый модуль. @@ -310,7 +310,7 @@ =over -=item C<[get,set] handlerError> +=item C<[get,set] errorHandler> Обработчик который будет вызван в случае возникновения необработанной ошибки в процессе работы приложения. После чего приложение корректно завершается.