Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 370:cbf4febf0930

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ObjectMeta, Tests, migrating to the new metadata model.
author sergey
date Tue, 10 Dec 2013 03:02:01 +0400
parents feeb3bc4a818
children 69a1f1508696
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
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
48 warn "error handler: $err";
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 233
diff changeset
49
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
50 my $vars = {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
51 error => $err
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
52 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
53
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
54 my $status = "500 Internal Server Error";
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
55
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
56 if (eval { $err->isa(WebException) }) {
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
57 $status = $err->status;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
58 }
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
59
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
60 my ($code) = ($status =~ m/^(\d+)/);
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
61
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
62 my $text = $this->view->display(
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
63 $err,
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
64 $this->errors->{$code} || $this->fallback,
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 layout => $this->layout
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
67 }
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 256
diff changeset
68 );
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
69
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
70 $result = HttpResponse->new(
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
71 status => $status,
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
72 type => $this->contentType,
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
73 charset => 'utf-8',
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
74 headers => eval{ $err->headers } || {},
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
75 body => $text
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
76 );
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
77 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
78
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
79 return $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
80 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents:
diff changeset
81
213
sergey
parents: 208
diff changeset
82 1;
sergey
parents: 208
diff changeset
83
sergey
parents: 208
diff changeset
84 __END__
sergey
parents: 208
diff changeset
85
sergey
parents: 208
diff changeset
86 =pod
sergey
parents: 208
diff changeset
87
sergey
parents: 208
diff changeset
88 =head1 NAME
sergey
parents: 208
diff changeset
89
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
90 C<IMPL::Web::Handler::ErrorHandler> - обертка для обработки исключений.
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
91
213
sergey
parents: 208
diff changeset
92 =head1 SYNOPSIS
sergey
parents: 208
diff changeset
93
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
94 Используется в цеопчке обработчиков приложения.
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 =begin code xml
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
97
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
98 <handlers type="ARRAY">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
99 <item type="IMPL::Web::Handler::ErrorHandler">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
100 <contentType>text/html</contentType>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
101 <loader refid="tt-loader"/>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
102 <errors type="HASH">
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
103 <error extname="500">errors/500</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
104 <error extname="404">errors/404</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
105 <error extname="403">errors/403</error>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
106 </errors>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
107 <fallback>errors/500</fallback>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
108 </item>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
109 </handlers>
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
110
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
111 =end code xml
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
112
213
sergey
parents: 208
diff changeset
113 =head1 DESCRIPTION
sergey
parents: 208
diff changeset
114
229
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
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 обработчика нижестоящему, либо создает C<IMPL::Web::HttpResponse> с
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
120 соответствующим статусом и содержанием.
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
121
213
sergey
parents: 208
diff changeset
122 =cut