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

annotate Lib/IMPL/Web/Application/ResourceBase.pm @ 373:3ca44e23fd1f

implemented new web resource

author	cin
date	Wed, 25 Dec 2013 17:29:38 +0400
parents	e12c14177848
children	2287c72f303a

rev	line source
372 e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	1 package IMPL::Web::Application::ResourceBase;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	2 use strict;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	3
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 255 diff changeset	4 use URI;
334 71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	5 use Carp qw(carp);
71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	6 use IMPL::lang qw(:hash :base);
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	7 use IMPL::Const qw(:prop);
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	8 use IMPL::declare {
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	9 require => {
372 e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	10
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	11 Exception => 'IMPL::Exception',
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	12 ArgumentException => '-IMPL::InvalidArgumentException',
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	13 OperationException => '-IMPL::InvalidOperationException',
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	14 NotAllowedException => 'IMPL::Web::NotAllowedException',
372 e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	15
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	16 },
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	17 base => [
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	18 'IMPL::Object' => undef,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	19 'IMPL::Web::Application::ResourceInterface' => undef
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	20 ],
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	21 props => [
359 833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	22 request => PROP_RO,
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	23 application => PROP_RO,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	24 parent => PROP_RO,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	25 model => PROP_RO,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	26 id => PROP_RO,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	27 location => PROP_RO,
359 833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	28 role => PROP_RO \| PROP_LIST
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	29 ]
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	30 };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	31
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	32 sub CTOR {
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	33 my ( $this, %args ) = @_;
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	34
334 71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	35 die ArgumentException->new(request => 'A request object must be specified')
71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	36 unless $args{request};
71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	37
71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	38 $this->request( $args{request} );
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	39 $this->parent( $args{parent} );
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	40 $this->model( $args{model} );
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	41 $this->id( $args{id} );
333 cd6409f66a5f small fixes, request environment is deprecated cin parents: 332 diff changeset	42 $this->application( $args{request}->application );
334 71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	43
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	44 # если расположение явно не указано, то оно вычисляется автоматически,
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	45 # либо остается не заданным
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	46 $this->location( $args{location}
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	47 \|\| eval { $this->parent->location->Child( $this->id ) } );
359 833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	48
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	49 if (my $role = $args{role}) {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	50 if (ref($role) eq 'ARRAY') {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	51 $this->role($role);
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	52 } elsif (not ref($role)) {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	53 $this->role(split(/\s+/, $role));
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	54 } else {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	55 die ArgumentException->new( role => 'A invalid value is provided, expected ARRAY or SCALAR');
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	56 }
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	57 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	58 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	59
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	60 sub InvokeHttpVerb {
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	61 my ( $this, $verb ) = @_;
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	62
334 71221d79e6b4 removing web resources contracts cin parents: 333 diff changeset	63 my $operation = $this->verbs->{ lc($verb) };
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	64
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	65 die NotAllowedException->new(
335 e8be9062ecf2 improved resource classes, contracts are deprecated cin parents: 334 diff changeset	66 allow => join( ',', $this->GetAllowedMethods ) )
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	67 unless $operation;
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	68
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	69 $this->AccessCheck($verb);
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	70 my $request = $this->request;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	71
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	72 # в случае, когда один ресурс вызывает HTTP метод другого ресурса, нужно
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	73 # сохранить оригинальный resourceLocation
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	74 $request->context->{resourceLocation} \|\|= $this->location;
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	75
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	76 # это свойство специфично только для REST приложений.
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	77 # сохранение текущего ресурса не повлечет за собой существенных расходов,
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	78 # т.к. они просто освободятся несколько позже.
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	79 if ( not $request->context->{resource} ) {
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	80 $request->context->{resource} = $this;
333 cd6409f66a5f small fixes, request environment is deprecated cin parents: 332 diff changeset	81 $request->context->{environment} = sub {
cd6409f66a5f small fixes, request environment is deprecated cin parents: 332 diff changeset	82 carp "using request environment is deprecated";
cd6409f66a5f small fixes, request environment is deprecated cin parents: 332 diff changeset	83 $this->PrepareEnvironment()
cd6409f66a5f small fixes, request environment is deprecated cin parents: 332 diff changeset	84 };
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	85 }
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	86
04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	87 return _InvokeDelegate( $operation, $this, $request );
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	88 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	89
357 ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	90 sub security {
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	91 shift->request->security
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	92 }
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	93
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	94 sub verbs {
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	95 {} # возвращаем пстой список операций
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	96 }
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	97
335 e8be9062ecf2 improved resource classes, contracts are deprecated cin parents: 334 diff changeset	98 sub GetAllowedMethods {
372 e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	99 map( uc, keys %{ shift->verbs } );
335 e8be9062ecf2 improved resource classes, contracts are deprecated cin parents: 334 diff changeset	100 }
e8be9062ecf2 improved resource classes, contracts are deprecated cin parents: 334 diff changeset	101
330 fe725fad2d90 Added access checking to web resources sergey parents: 285 diff changeset	102 sub AccessCheck {
332 04a093f0a5a6 IMPL::Web::Application refactoring: resources are created per client request cin parents: 330 diff changeset	103
330 fe725fad2d90 Added access checking to web resources sergey parents: 285 diff changeset	104 }
fe725fad2d90 Added access checking to web resources sergey parents: 285 diff changeset	105
359 833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	106 sub Seek {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	107 my ($this, $role) = @_;
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	108
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	109 my @roles;
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	110
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	111 if (ref($role) eq 'ARRAY') {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	112 @roles = @{$role};
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	113 } elsif (not ref($role)) {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	114 @roles = split(/\s+/, $role);
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	115 } else {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	116 die ArgumentException->new( role => 'A invalid value is provided, expected ARRAY or SCALAR');
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	117 }
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	118
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	119
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	120 for(my $r = $this; $r; $r = $r->parent) {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	121 return $r if $r->HasRole(@roles);
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	122 }
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	123 return;
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	124 }
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	125
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	126 sub HasRole {
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	127 my ($this, @roles) = @_;
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	128 my %cache = map { $_, 1 } @{$this->role};
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	129 return scalar(grep not($cache{$_}), @roles) ? 0 : 1;
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	130 }
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	131
372 e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	132 sub _InvokeDelegate {
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	133 my $delegate = shift;
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	134
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	135 return $delegate->(@_) if ref $delegate eq 'CODE';
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	136 return $delegate->Invoke(@_) if eval { $delegate->can('Invoke') };
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	137 }
e12c14177848 refactoring web resources model, implementing new simplified model cin parents: 359 diff changeset	138
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	139 1;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	140
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	141 __END__
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	142
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	143 =pod
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	144
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	145 =head1 NAME
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	146
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	147 C<IMPL::Web::Application::Resource> - Web-ресурс.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	148
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	149 =head1 SYNOPSIS
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	150
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	151 Класс для внутреннего использования. Объединяет в себе контракт и модель данных.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	152 Основная задача - обработать поступающий от контроллера запрос на вызов C<HTTP>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	153 метода.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	154
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	155 Экземпляры данного класса передаются в качестве параметров делегатам
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	156 осуществляющим привязку к модели в C<IMPL::Web::Application::ResourceContract>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	157 и C<IMPL::Web::Application::OperationContract>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	158
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	159 =head1 DESCRIPTION
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	160
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	161 Весь функционал ресурса, поддерживаемые им C<HTTP> методы определяются
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	162 контрактом. Однако можно реализовывать ресурсы, которые не имеют контракта
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	163 или он отличается от того, что предоставляется стандартно
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	164 C<IMPL::Web::Application::ResourceContract>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	165
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	166 Каждый ресурс является контейнером, тоесть позволяет получить дочерний ресурс
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	167 по идентифифкатору, если таковой имеется, тоесть ресурс, у которого нет дочерних
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	168 ресурсов на самом деле рассматривается как пустой контейнер.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	169
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	170 С ресурсом непосредственно взаимодействует котроллер запросов
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	171 C<IMPL::Web::Handler::RestController>, вызывая два метода.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	172
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	173 =over
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	174
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	175 =item * C<FetchChildResource($childId)>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	176
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	177 Данный метод возвращает дочерний ресурс, соответствующий C<$childId>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	178 Текущая реализация использует метод C<FindChildResourceInfo> контракта текущего
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	179 ресурса, после чего создает дочерний ресурс.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	180
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	181 Если дочерний ресурс не найден, вызывается исключение
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	182 C<IMPL::Web::NotFoundException>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	183
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	184 =item * C<InvokeHttpVerb($verb,$action)>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	185
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	186 Обрабатывает запрос к ресурсу. Для этого используется контракт ресурса, в
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	187 нем выбирается соответсвующий C<IMPL::Web::Application::OperationContract>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	188 Затем найденный контракт для указанной операции используется для обработки
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	189 запроса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	190
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	191 =back
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	192
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	193 Если объект реализует два вышеуказанных метода, он является веб-ресурсом, а
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	194 детали его реализации, котнракт и прочее уже не важно, поэтому можно реализовать
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	195 собственный класс ресурса, например унаследованный от
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	196 C<IMPL::Web::Application::CustomResource>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	197
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	198 =head1 MEMBERS
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	199
357 ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	200 =head2 C<[get]request>
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	201
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	202 Объект C<IMPL::Web::Application::Action> представляющий запрос к серверу.
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	203
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	204 =head2 C<[get]application>
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	205
357 ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	206 Ссылка на приложение, к которому относится данный ресурс. Получается
ec58c47edb52 web security: code cleanup, refactoring cin parents: 335 diff changeset	207 автоматически из объекта запроса.
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	208
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	209 =head2 C<[get]contract>
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	210
248 814d755e5d12 Minor fixes sergey parents: 245 diff changeset	211 Обязательное свойство для ресурса, ссылается, на контракт, соответствующий
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	212 данному ресурсу, используется для выполнения C<HTTP> методов и получения
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	213 дочерних ресурсов.
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	214
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	215 =head2 C<[get]id>
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	216
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	217 Обязательное свойство ресурса, идентифицирует его в родительском контейнере,
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	218 для корневого ресурса может иметь произвольное значение.
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	219
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	220 =head2 C<[get]parent>
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	221
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	222 Ссылка на родительский ресурс, для корневого ресурса не определена.
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	223
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	224 =head2 C<[get]model>
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	225
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	226 Ссылка на объект предметной области, представляемый данным ресурсом. Данное
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	227 свойство не является обязательным и может быть не задано.
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	228
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	229 =head2 C<[get]location>
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	230
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	231 Объект типа C<IMPL::Web::AutoLocator> или аналогичный описывающий адрес текущего
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	232 ресурса, может быть как явно передан при создании ресурса, так и вычислен
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	233 автоматически (только для ресурсов имеющих родителя). Следует заметить, что
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	234 адрес ресурса не содержит параметров запроса, а только путь.
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	235
359 833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	236 =head2 C<[get,list]role>
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	237
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	238 Список ролей ресурса. Роль это условный маркер, который позволяет определить
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	239 функции выполняемые ресурсом, например контейнер, профиль пользователя и т.п.
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	240
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	241 Используется при построении цепочек навигации, а также при поиске с использованием
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	242 метода C<seek>.
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	243
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	244 =head2 C<seek($role)>
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	245
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	246 Ищет ресурс в цепочке родителей (включая сам ресурс) с подходящими ролями.
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	247
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	248 Роли могут быть переданы в виде массива или строки, где роли разделены пробелами
833e663796c4 TTView: added view variable to pass rendering context between controls sergey parents: 357 diff changeset	249
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	250 =head2 C<[get]FetchChildResource($id)>
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	251
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	252 Возвращает дочерний ресурс, по его идентификатору.
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	253
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	254 Данная реализация использует контракт текущего ресурса для поиска информации о
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	255 дочернем ресурсе C<< $this->contract->FindChildResourceInfo($id) >>.
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	256
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	257 Затем осуществляется привязка к моделе, тоесть, выполняется делегат, для
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	258 получения модели дочернего ресурса, а затем осуществляется привязка к контракту,
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	259 при этом в делегат, который должен вернуть контракт дочернего ресурса передаются
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	260 текущий ресурc и модель дочернего ресурса.
4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 256 diff changeset	261
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: diff changeset	262 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/ResourceBase.pm @ 373:3ca44e23fd1f