|
52
|
1 package IMPL::Web::Application::Action;
|
|
55
|
2 use strict;
|
|
52
|
3
|
|
|
4 use base qw(IMPL::Object);
|
|
|
5
|
|
|
6 use IMPL::Class::Property;
|
|
|
7
|
|
|
8 BEGIN {
|
|
|
9 public property application => prop_get | owner_set;
|
|
|
10 public property request => prop_get | owner_set;
|
|
|
11 public property response => prop_get | owner_set;
|
|
55
|
12
|
|
|
13 private property _entryPoint => prop_all;
|
|
|
14 }
|
|
|
15
|
|
|
16 sub Invoke {
|
|
|
17 my ($this) = @_;
|
|
|
18
|
|
|
19 if ($this->_entryPoint) {
|
|
|
20 $this->_entryPoint->();
|
|
|
21 } else {
|
|
|
22 die new IMPL::InvalidOperationException("At least one handler is required");
|
|
|
23 }
|
|
|
24 }
|
|
|
25
|
|
|
26 sub ChainHandler {
|
|
|
27 my ($this,$handler) = @_;
|
|
|
28
|
|
|
29 my $delegateNext = $this->_entryPoint();
|
|
|
30
|
|
|
31 if (ref $handler eq 'CODE') {
|
|
56
|
32 $this->_entryPoint( sub {
|
|
55
|
33 $handler->($this,$delegateNext);
|
|
56
|
34 } );
|
|
55
|
35 } elsif (UNIVERSAL::isa($handler,'IMPL::Web::Application::QueryHandler')) {
|
|
56
|
36 $this->_entryPoint( sub {
|
|
55
|
37 $handler->Invoke($this,$delegateNext);
|
|
56
|
38 } );
|
|
|
39 } elsif ($handler and not ref $handler) {
|
|
|
40 my $method = $this->can($handler) or die new IMPL::InvalidArgumentException("An invalid handler supplied");
|
|
|
41
|
|
|
42 $this->_entryPoint( sub {
|
|
|
43 $method->($this,$delegateNext);
|
|
|
44 } );
|
|
55
|
45 } else {
|
|
|
46 die new IMPL::InvalidArgumentException("An invalid handler supplied");
|
|
|
47 }
|
|
|
48
|
|
52
|
49 }
|
|
|
50
|
|
|
51 1;
|
|
|
52
|
|
|
53 __END__
|
|
|
54
|
|
|
55 =pod
|
|
|
56
|
|
|
57 =head1 DESCRIPTION
|
|
|
58
|
|
|
59 Определяет порядок выполнения запроса, форматирует результат, инициализирует контекст.
|
|
|
60
|
|
|
61 Объект создается обработчиком запросов, таким как C<IMPL::Web::Application::UriController>.
|
|
|
62 При этом формируется цепочка обработчиков запроса, эта цапочка будет выполняться с последнего добавленного,
|
|
|
63 причем каждый добавленный обработчик в качестве одного из параметров получает не только текущий запрос,
|
|
|
64 но и предыдущий обработчик.
|
|
|
65
|
|
|
66 Типичная цепочка может быть такой, в порядке добавления
|
|
|
67
|
|
|
68 $objSecCallToMethod($target,$method)
|
|
|
69 $AuthenticateMethod
|
|
|
70 $TDocumentOut($file)
|
|
|
71
|
|
|
72 что приведет к следующей последовательности
|
|
|
73
|
|
|
74 Action->Invoke() {
|
|
|
75 TDocumentOut->Invoke($Action,$nextHandler) {
|
|
|
76 my $result = $nextHandler() {
|
|
|
77 $AuthenticateMethod($Action,$nextHandler) {
|
|
|
78 my $context = $Action->application->security->Authenticate($Action->request,$Action->response);
|
|
|
79 return $context->Impersonate($nextHandler) {
|
|
|
80 $objSecCallToMethod->Invoke($Action,undef) {
|
|
|
81 IMPL::Security->AccessCheck($target,$method);
|
|
|
82 return $target->$method();
|
|
|
83 }
|
|
|
84 }
|
|
|
85 }
|
|
|
86 }
|
|
|
87 $this->format($result,$Action->response->streamBody);
|
|
|
88 }
|
|
|
89 }
|
|
|
90
|
|
|
91 или как альтернатива может быть еще
|
|
|
92
|
|
|
93 $objSecCallToMethod($target,$method)
|
|
|
94 $AuthenticateMethod
|
|
|
95 $TransfromToSimpleData
|
|
|
96 $JSONOut
|
|
|
97
|
|
|
98 В данной цепочке также происходит вызов метода, но его результат потом преобразуется
|
|
|
99 в простые структуры и передается JSON преобразователю. Таким образом модулю логики
|
|
|
100 не требуется знать о выходном формате, всю работу проделают дополнительные фильтры.
|
|
|
101
|
|
56
|
102 =head1 HANDLERS
|
|
|
103
|
|
|
104 =head2 subroutines
|
|
|
105
|
|
|
106 =over
|
|
|
107
|
|
|
108 =item CODE ref
|
|
|
109
|
|
|
110 Ссылка на процедуру может являться обработчиком, при этом функция будет вызвана с
|
|
|
111 двумя параметрами: ссылкой на action объект, и точкой входа следующего обработчика.
|
|
|
112
|
|
|
113 =item Method Name
|
|
|
114
|
|
|
115 Имя метода, передается в виде строки. У текущего объекта action ищется метод с
|
|
|
116 указанным именем, после чего используется ссылка на этот метод для вызова с двумя
|
|
|
117 параметрами: ссылкой на action объект, и точкой входа следующего обработчика.
|
|
|
118
|
|
|
119 Получается вызов идентичный следующему C<< $action->MethodName($nextHandler) >>;
|
|
|
120
|
|
|
121 =back
|
|
|
122
|
|
52
|
123 =cut |
