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

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 229:47f77e6409f7

heavily reworked the resource model of the web application: *some ResourcesContraact functionality moved to Resource +Added CustomResource *Corrected action handlers

author	sergey
date	Sat, 29 Sep 2012 02:34:47 +0400
parents	d6e2ea24af08
children	6d8092d8ce1b

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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	4 use IMPL::lang qw(:declare :constants is);
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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	17 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	18 };
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	19
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	20 BEGIN {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	21 public property errors => PROP_ALL;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	22 public property loader => PROP_ALL;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	23 public property fallback => PROP_ALL;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	24 public property contentType => PROP_ALL;
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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	30 die ArgumentException->new("loader") unless $this->loader;
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 = $@) {
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	47
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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	52 my $code = 500;
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) }) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	55 ($code) = ($err->status =~ m/^(\d+)/);
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
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	58 my $doc = $this->loader->document(
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	59 $this->errors->{$code} \|\| $this->fallback,
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	60 $vars
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	61 );
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	62
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	63 my $text = $doc->Render($vars);
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	64
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	65 $result = HttpResponse->new(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	66 status => $err->status,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	67 type => $this->contentType,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	68 charset => 'utf-8',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	69 headers => $err->headers,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	70 body => $text
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	71 );
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	72 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	73
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	74 return $result;
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	75 }
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: diff changeset	76
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	77 1;
d6e2ea24af08 sync sergey parents: 208 diff changeset	78
d6e2ea24af08 sync sergey parents: 208 diff changeset	79 __END__
d6e2ea24af08 sync sergey parents: 208 diff changeset	80
d6e2ea24af08 sync sergey parents: 208 diff changeset	81 =pod
d6e2ea24af08 sync sergey parents: 208 diff changeset	82
d6e2ea24af08 sync sergey parents: 208 diff changeset	83 =head1 NAME
d6e2ea24af08 sync sergey parents: 208 diff changeset	84
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	85 C<IMPL::Web::Handler::ErrorHandler> - обертка для обработки исключений.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	86
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	87 =head1 SYNOPSIS
d6e2ea24af08 sync sergey parents: 208 diff changeset	88
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	89 Используется в цеопчке обработчиков приложения.
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 =begin code xml
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 <handlers type="ARRAY">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	94 <item type="IMPL::Web::Handler::ErrorHandler">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	95 <contentType>text/html</contentType>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	96 <loader refid="tt-loader"/>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	97 <errors type="HASH">
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	98 <error extname="500">errors/500</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	99 <error extname="404">errors/404</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	100 <error extname="403">errors/403</error>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	101 </errors>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	102 <fallback>errors/500</fallback>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	103 </item>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	104 </handlers>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	105
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	106 =end code xml
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	107
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	108 =head1 DESCRIPTION
d6e2ea24af08 sync sergey parents: 208 diff changeset	109
229 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 используется соответствие представлений и кодов ошибок.
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 обработчика нижестоящему, либо создает C<IMPL::Web::HttpResponse> с
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
213 d6e2ea24af08 sync sergey parents: 208 diff changeset	117 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/ErrorHandler.pm @ 229:47f77e6409f7