Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 395:212cc86e470b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Code cleanup DateTime locale support for HTTP requests
author sergey
date Thu, 20 Feb 2014 01:33:03 +0400
parents 69a1f1508696
children 38cb0b80e88e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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,
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
20 view => PROP_RW,
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
21 layout => PROP_RW,
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
22 fallback => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
23 contentType => PROP_RW
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
24 ]
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
25 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
26
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
27 sub CTOR {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
28 my ($this) = @_;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
29
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
30 die ArgumentException->new("view") unless $this->view;
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
31 die ArgumentException->new("fallback") unless $this->fallback;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
32
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
33 $this->errors({}) unless $this->errors;
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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
37 sub Invoke {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
38 my ($this,$action,$next) = @_;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
39
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
40 undef $@;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
41 my $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
42 eval {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
43 $result = $next ? $next->($action) : undef;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
44 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
45
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
46 if (my $err = $@) {
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 233
diff changeset
47
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
48 my $vars = {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
49 error => $err
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
50 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
51
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
52 my $status = "500 Internal Server Error";
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
53
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
54 if (eval { $err->isa(WebException) }) {
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
55 $status = $err->status;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
56 }
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
57
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
58 my ($code) = ($status =~ m/^(\d+)/);
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
59
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
60 my $text = $this->view->display(
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
61 $err,
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
62 $this->errors->{$code} || $this->fallback,
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
63 {
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
64 layout => $this->layout
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
65 }
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
66 );
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
67
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
68 $result = HttpResponse->new(
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
69 status => $status,
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
70 type => $this->contentType,
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
71 charset => 'utf-8',
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
72 headers => eval{ $err->headers } || {},
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
73 body => $text
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
74 );
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
75 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
76
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
77 return $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
78 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
79
213
sergey
parents: 208
diff changeset
80 1;
sergey
parents: 208
diff changeset
81
sergey
parents: 208
diff changeset
82 __END__
sergey
parents: 208
diff changeset
83
sergey
parents: 208
diff changeset
84 =pod
sergey
parents: 208
diff changeset
85
sergey
parents: 208
diff changeset
86 =head1 NAME
sergey
parents: 208
diff changeset
87
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
88 C<IMPL::Web::Handler::ErrorHandler> - обертка для обработки исключений.
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
89
213
sergey
parents: 208
diff changeset
90 =head1 SYNOPSIS
sergey
parents: 208
diff changeset
91
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
92 Используется в цеопчке обработчиков приложения.
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 =begin code xml
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
95
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
96 <handlers type="ARRAY">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
97 <item type="IMPL::Web::Handler::ErrorHandler">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
98 <contentType>text/html</contentType>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
99 <loader refid="tt-loader"/>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
100 <errors type="HASH">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
101 <error extname="500">errors/500</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
102 <error extname="404">errors/404</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
103 <error extname="403">errors/403</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
104 </errors>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
105 <fallback>errors/500</fallback>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
106 </item>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
107 </handlers>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
108
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
109 =end code xml
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
110
213
sergey
parents: 208
diff changeset
111 =head1 DESCRIPTION
sergey
parents: 208
diff changeset
112
229
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
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 обработчика нижестоящему, либо создает C<IMPL::Web::HttpResponse> с
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
118 соответствующим статусом и содержанием.
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
119
213
sergey
parents: 208
diff changeset
120 =cut