|
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 $delegate;
|
|
|
30
|
|
|
31 my $delegateNext = $this->_entryPoint();
|
|
|
32
|
|
|
33 if (ref $handler eq 'CODE') {
|
|
|
34 $delegate = sub {
|
|
|
35 $handler->($this,$delegateNext);
|
|
|
36 };
|
|
|
37 } elsif (UNIVERSAL::isa($handler,'IMPL::Web::Application::QueryHandler')) {
|
|
|
38 $delegate = sub {
|
|
|
39 $handler->Invoke($this,$delegateNext);
|
|
|
40 }
|
|
|
41 } else {
|
|
|
42 die new IMPL::InvalidArgumentException("An invalid handler supplied");
|
|
|
43 }
|
|
|
44
|
|
52
|
45 }
|
|
|
46
|
|
|
47 1;
|
|
|
48
|
|
|
49 __END__
|
|
|
50
|
|
|
51 =pod
|
|
|
52
|
|
|
53 =head1 DESCRIPTION
|
|
|
54
|
|
|
55 Определяет порядок выполнения запроса, форматирует результат, инициализирует контекст.
|
|
|
56
|
|
|
57 Объект создается обработчиком запросов, таким как C<IMPL::Web::Application::UriController>.
|
|
|
58 При этом формируется цепочка обработчиков запроса, эта цапочка будет выполняться с последнего добавленного,
|
|
|
59 причем каждый добавленный обработчик в качестве одного из параметров получает не только текущий запрос,
|
|
|
60 но и предыдущий обработчик.
|
|
|
61
|
|
|
62 Типичная цепочка может быть такой, в порядке добавления
|
|
|
63
|
|
|
64 $objSecCallToMethod($target,$method)
|
|
|
65 $AuthenticateMethod
|
|
|
66 $TDocumentOut($file)
|
|
|
67
|
|
|
68 что приведет к следующей последовательности
|
|
|
69
|
|
|
70 Action->Invoke() {
|
|
|
71 TDocumentOut->Invoke($Action,$nextHandler) {
|
|
|
72 my $result = $nextHandler() {
|
|
|
73 $AuthenticateMethod($Action,$nextHandler) {
|
|
|
74 my $context = $Action->application->security->Authenticate($Action->request,$Action->response);
|
|
|
75 return $context->Impersonate($nextHandler) {
|
|
|
76 $objSecCallToMethod->Invoke($Action,undef) {
|
|
|
77 IMPL::Security->AccessCheck($target,$method);
|
|
|
78 return $target->$method();
|
|
|
79 }
|
|
|
80 }
|
|
|
81 }
|
|
|
82 }
|
|
|
83 $this->format($result,$Action->response->streamBody);
|
|
|
84 }
|
|
|
85 }
|
|
|
86
|
|
|
87 или как альтернатива может быть еще
|
|
|
88
|
|
|
89 $objSecCallToMethod($target,$method)
|
|
|
90 $AuthenticateMethod
|
|
|
91 $TransfromToSimpleData
|
|
|
92 $JSONOut
|
|
|
93
|
|
|
94 В данной цепочке также происходит вызов метода, но его результат потом преобразуется
|
|
|
95 в простые структуры и передается JSON преобразователю. Таким образом модулю логики
|
|
|
96 не требуется знать о выходном формате, всю работу проделают дополнительные фильтры.
|
|
|
97
|
|
|
98 =cut |
