pub/Impl: Lib/IMPL/Web/Application.pm annotate

annotate Lib/IMPL/Web/Application.pm @ 284:f2a6bc5f3184

+IMPL::Object::InlineFactory: implement object factory as subroutine

author	sergey
date	Thu, 14 Feb 2013 19:14:02 +0400
parents	a02b110da931
children	546957c50a36

rev	line source
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	1 package IMPL::Web::Application;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	2 use strict;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	3 use warnings;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	4
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	5 use CGI;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	6 use Carp qw(carp);
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	7 use IMPL::Const qw(:prop);
58 a35b60b16a99 Configuration, late activation wizard parents: 57 diff changeset	8
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	9 use IMPL::declare {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	10 require => {
244 a02b110da931 refactoring sergey parents: 242 diff changeset	11 Locator => 'IMPL::Web::AutoLocator',
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	12 TAction => 'IMPL::Web::Application::Action',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	13 HttpResponse => 'IMPL::Web::HttpResponse',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	14 TFactory => '-IMPL::Object::Factory',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	15 Exception => 'IMPL::Exception',
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	16 InvalidOperationException => '-IMPL::InvalidOperationException',
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	17 Loader => 'IMPL::Code::Loader'
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	18 },
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	19 base => [
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	20 'IMPL::Config' => '@_',
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	21 'IMPL::Object::Singleton' => '@_'
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	22 ],
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	23 props => [
244 a02b110da931 refactoring sergey parents: 242 diff changeset	24 baseUrl => PROP_RW,
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	25 actionFactory => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	26 handlers => PROP_RW \| PROP_LIST,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	27 security => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 230 diff changeset	28 options => PROP_RW,
242 fe9d62d9054d requestCharset support sergey parents: 233 diff changeset	29 requestCharset => PROP_RW,
244 a02b110da931 refactoring sergey parents: 242 diff changeset	30 output => PROP_RW,
a02b110da931 refactoring sergey parents: 242 diff changeset	31 location => PROP_RO
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	32 ]
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	33 };
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	34
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	35 sub CTOR {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	36 my ($this) = @_;
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	37
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	38 die IMPL::InvalidArgumentException->new( "handlers",
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	39 "At least one handler should be supplied" )
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	40 unless $this->handlers->Count;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	41
244 a02b110da931 refactoring sergey parents: 242 diff changeset	42 $this->baseUrl('/') unless $this->baseUrl;
a02b110da931 refactoring sergey parents: 242 diff changeset	43
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	44 $this->actionFactory(TAction) unless $this->actionFactory;
244 a02b110da931 refactoring sergey parents: 242 diff changeset	45 $this->location(Locator->new(base => $this->baseUrl));
62 c64bd1bf727d Web application wizard parents: 60 diff changeset	46 }
c64bd1bf727d Web application wizard parents: 60 diff changeset	47
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	48 sub Run {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	49 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	50
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	51 my $handler;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	52
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	53 $handler = _ChainHandler( $_, $handler ) foreach $this->handlers;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	54
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	55 while ( my $query = $this->FetchRequest() ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	56
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	57 my $action = $this->actionFactory->new(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	58 query => $query,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	59 application => $this,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	60 );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	61
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	62 eval {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	63 my $result = $handler->($action);
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 die InvalidOperationException->new(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	66 "Invalid handlers result. A reference to IMPL::Web::HttpResponse is expexted."
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	67 ) unless eval { $result->isa(HttpResponse) };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	68
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	69 $result->PrintResponse( $this->output );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	70 };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	71 if ($@) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	72 my $e = $@;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	73
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	74 HttpResponse->InternalError(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	75 type => 'text/plain',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	76 charset => 'utf-8',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	77 body => $e
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	78 )->PrintResponse( $this->output );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	79
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	80 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	81 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	82 }
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	83
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	84 sub _ChainHandler {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	85 my ( $handler, $next ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	86
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	87 if ( ref $handler eq 'CODE' ) {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	88 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	89 my ($action) = @_;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	90 return $handler->( $action, $next );
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 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 elsif ( eval { $handler->can('Invoke') } ) {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	94 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	95 my ($action) = @_;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	96 return $handler->Invoke( $action, $next );
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	97 };
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	98 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	99 elsif ( eval { $handler->isa(TFactory) } ) {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	100 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	101 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	102 my $inst = $handler->new();
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	103 return $inst->Invoke( $action, $next );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	104 }
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 elsif ( $handler
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	107 and not ref $handler
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	108 and $handler =~ m/^(-)?(\w+(?:::\w+)*)$/ )
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	109 {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	110 my $class = $2;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	111 if ( not $1 ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	112 Loader->safe->Require($class);
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	113 die IMPL::InvalidArgumentException->(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	114 "An invalid handler supplied", $handler
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	115 ) unless $class->can('Invoke');
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	116 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	117
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	118 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	119 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	120 my $inst = $class->new();
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	121 return $inst->Invoke( $action, $next );
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	122 };
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	123 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	124 else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	125 die new IMPL::InvalidArgumentException( "An invalid handler supplied",
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	126 $handler );
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	127 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	128 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 194 diff changeset	129
97 964587c5183c Added SecureCall to Web QueryHandlers stack wizard parents: 73 diff changeset	130 sub FetchRequest {
244 a02b110da931 refactoring sergey parents: 242 diff changeset	131
a02b110da931 refactoring sergey parents: 242 diff changeset	132 return;
138 c5bc900eefd3 IMPL::Web::Application: Fixed file uploading wizard parents: 130 diff changeset	133 }
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading wizard parents: 130 diff changeset	134
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	135 1;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	136
52 15d720913562 security in work wizard@linux-odin.local parents: 49 diff changeset	137 __END__
15d720913562 security in work wizard@linux-odin.local parents: 49 diff changeset	138
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	139 =pod
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	140
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	141 =head1 NAME
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	142
244 a02b110da931 refactoring sergey parents: 242 diff changeset	143 C<IMPL::Web::Application> Базовай класс для создания экземпляров приложения
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	144
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	145 =head1 SYNOPSIS
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	146
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	147 =begin code
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	148
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	149 use IMPL::require {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	150 App => 'IMPL::Web::Application'
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	151 };
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	152
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	153 my $instance = App->spawn(); # will use ./IMPL/Web/Application.xml as configuration
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	154
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	155 $instance->Run;
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	156
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	157 =end code
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	158
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	159 =head1 DESCRIPTION
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	160
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	161 Создает экземпляр объекта, который получает и обрабатывает C<HTTP> запрос.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	162 Приложение можно загрузить из C<xml> файла в котором описано состояние свойств,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	163 для этого используется механизм C<IMPL::Serialization>.
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	164
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	165 Приложение представлет собой модульную конструкцию, которая состоит из цепочки
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	166 обработчиков. Цепочка обработчиков вызывается снизу вверх, при этом каждый
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 213 diff changeset	167 обработчик самостоятельно рекурсивно вызывает следующий (более высокого уровня).
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	168
244 a02b110da931 refactoring sergey parents: 242 diff changeset	169 См. также C<IMPL::Web::CGIApplication>
a02b110da931 refactoring sergey parents: 242 diff changeset	170
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 47 diff changeset	171 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application.pm @ 284:f2a6bc5f3184