Mercurial > pub > Impl

comparison Lib/IMPL/Web/Handler/ErrorHandler.pm @ 206:c8fe3f84feba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+IMPL::Web::Handlers::ViewSelector +IMPL::Web::Handlers::ErrorHandler *IMPL::Web::Handlers::RestController moved types mappings to ViewSelector
author sergey
date Thu, 03 May 2012 16:48:39 +0400
parents
children 3d433a977e3b
comparison
equal deleted inserted replaced
205:891c04080658 206:c8fe3f84feba
1 package IMPL::Web::Handler::ErrorHandler;
2 use strict;
3
4 use IMPL::lang qw(:declare :constants is);
5 use IMPL::Exception();
6 use IMPL::declare {
7 require => {
8 WebException => 'IMPL::Web::Exception',
9 ArgumentException => '-IMPL::InvalidArgumentException',
10 },
11 base => {
12 'IMPL::Object' => undef,
13 'IMPL::Object::Autofill' => '@_',
14 'IMPL::Object::Serializable' => undef
15 }
16 };
17
18 BEGIN {
19 public property errors => PROP_ALL;
20 public property loader => PROP_ALL;
21 public property fallback => PROP_ALL;
22 public property contentType => PROP_ALL;
23 }
24
25 sub CTOR {
26 my ($this) = @_;
27
28 die ArgumentException->new("loader") unless $this->loader;
29 die ArgumentException->new("fallback") unless $this->fallback;
30
31 $this->errors({}) unless $this->errors;
32
33 }
34
35 sub Invoke {
36 my ($this,$action,$next) = @_;
37
38 undef $@;
39 my $result;
40 eval {
41 $result = $next ? $next->($action) : undef;
42 };
43
44 if (my $err = $@) {
45 $action->ReinitResponse();
46 $action->response->contentType($this->contentType);
47
48 my $vars = {
49 error => $err
50 };
51
52 my $code = 500;
53
54 $code = $err->code if eval { $err->isa(WebException) };
55
56 $action->response->status("$code");
57
58 my $doc = $this->loader->document(
59 $this->errors->{$code} || $this->fallback,
60 $vars
61 );
62
63 my $hout = $action->response->streamBody;
64 print $hout $doc->Render($vars);
65 }
66
67 return $result;
68 }
69
70 1;