pub/Impl: Lib/IMPL/Web/Handler/ErrorHandler.pm annotate

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 238:b8c724f6de36

DOM model refactoring TT view refactoring, controls are no longer derived from DOM nodes bugfixes

author	sergey
date	Tue, 16 Oct 2012 01:33:06 +0400
parents	3cebcf6fdb9b
children	32aceba4ee6d

rev	line source
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	1 package IMPL::Web::Handler::ErrorHandler;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	2 use strict;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	3
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	4 use IMPL::Const qw(:prop);
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	5 use IMPL::Exception();
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	6 use IMPL::declare {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	7 require => {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	8 WebException => 'IMPL::Web::Exception',
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	9 ArgumentException => '-IMPL::InvalidArgumentException',
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	10 IOException => '-IMPL::IOException',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	11 HttpResponse => 'IMPL::Web::HttpResponse'
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	12 },
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	13 base => {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	14 'IMPL::Object' => undef,
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	15 'IMPL::Object::Autofill' => '@_',
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	16 'IMPL::Object::Serializable' => undef
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	17 },
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	18 props => [
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	19 errors => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	20 loader => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	21 fallback => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	22 contentType => PROP_RW
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	23 ]
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	24 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	25
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	26 sub CTOR {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	27 my ($this) = @_;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	28
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	29 die ArgumentException->new("loader") unless $this->loader;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	30 die ArgumentException->new("fallback") unless $this->fallback;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	31
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	32 $this->errors({}) unless $this->errors;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	33
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	34 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	35
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	36 sub Invoke {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	37 my ($this,$action,$next) = @_;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	38
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	39 undef $@;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	40 my $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	41 eval {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	42 $result = $next ? $next->($action) : undef;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	43 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	44
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	45 if (my $err = $@) {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	46
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	47 my $vars = {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	48 error => $err
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	49 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	50
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	51 my $status = "500 Internal Server Error";
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	52
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	53 if (eval { $err->isa(WebException) }) {
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	54 $status = $err->status;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	55 }
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	56
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	57 my ($code) = ($status =~ m/^(\d+)/);
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	58
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	59 my $doc = $this->loader->document(
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	60 $this->errors->{$code} \|\| $this->fallback,
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	61 $vars
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	62 );
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	63
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	64 my $text = $doc->Render($vars);
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	65
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	66 $result = HttpResponse->new(
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	67 status => $status,
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	68 type => $this->contentType,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	69 charset => 'utf-8',
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	70 headers => eval{ $err->headers } \|\| {},
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	71 body => $text
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	72 );
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	73 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	74
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	75 return $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	76 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	77
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	78 1;
d6e2ea24af08 sync sergey parents: 208 diff changeset	79
d6e2ea24af08 sync sergey parents: 208 diff changeset	80 __END__
d6e2ea24af08 sync sergey parents: 208 diff changeset	81
d6e2ea24af08 sync sergey parents: 208 diff changeset	82 =pod
d6e2ea24af08 sync sergey parents: 208 diff changeset	83
d6e2ea24af08 sync sergey parents: 208 diff changeset	84 =head1 NAME
d6e2ea24af08 sync sergey parents: 208 diff changeset	85
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	86 C<IMPL::Web::Handler::ErrorHandler> - обертка для обработки исключений.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	87
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	88 =head1 SYNOPSIS
d6e2ea24af08 sync sergey parents: 208 diff changeset	89
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	90 Используется в цеопчке обработчиков приложения.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	91
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	92 =begin code xml
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	93
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	94 <handlers type="ARRAY">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	95 <item type="IMPL::Web::Handler::ErrorHandler">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	96 <contentType>text/html</contentType>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	97 <loader refid="tt-loader"/>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	98 <errors type="HASH">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	99 <error extname="500">errors/500</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	100 <error extname="404">errors/404</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	101 <error extname="403">errors/403</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	102 </errors>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	103 <fallback>errors/500</fallback>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	104 </item>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	105 </handlers>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	106
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	107 =end code xml
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	108
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	109 =head1 DESCRIPTION
d6e2ea24af08 sync sergey parents: 208 diff changeset	110
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	111 Позволяет создать представление для ресурса в случае ошибки, для этого
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	112 используется соответствие представлений и кодов ошибок.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	113
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	114 В результате обработчик либо прозрачно передает результат вышестоящего
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	115 обработчика нижестоящему, либо создает C<IMPL::Web::HttpResponse> с
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	116 соответствующим статусом и содержанием.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	117
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	118 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 238:b8c724f6de36