|
49
|
1 package IMPL::Web::Application;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Object IMPL::Object::Singleton);
|
|
58
|
6
|
|
|
7 require IMPL::Web::Application::Action;
|
|
|
8 require IMPL::Web::Application::Response;
|
|
|
9
|
|
49
|
10 use IMPL::Class::Property;
|
|
57
|
11 use CGI;
|
|
49
|
12
|
|
|
13 BEGIN {
|
|
52
|
14 public property handlerError => prop_all;
|
|
57
|
15 public property factoryAction => prop_all;
|
|
58
|
16 public property handlersQuery => prop_all;
|
|
49
|
17 }
|
|
|
18
|
|
|
19 # custom factory
|
|
|
20 sub new {
|
|
|
21 my ($self,$file) = @_;
|
|
|
22
|
|
|
23 return $self->LoadXMLFile($file);
|
|
|
24 }
|
|
|
25
|
|
|
26 sub Run {
|
|
|
27 my ($this) = @_;
|
|
|
28
|
|
58
|
29 while (my $query = $this->FetchRequest()) {
|
|
|
30 my $response = new IMPL::Web::Application::Response(request => $query);
|
|
|
31
|
|
|
32 my $action = new IMPL::Web::Application::Action(
|
|
|
33 request => $query,
|
|
|
34 response => $response,
|
|
|
35 application => $this,
|
|
|
36 );
|
|
|
37
|
|
|
38 $action->ChainHandler($_) foreach $this->handlersQuery;
|
|
|
39
|
|
|
40 $action->Invoke();
|
|
49
|
41 }
|
|
|
42 }
|
|
|
43
|
|
57
|
44 {
|
|
|
45 my $hasFetched = 0;
|
|
|
46
|
|
|
47 sub FetchRequest {
|
|
|
48 return undef if $hasFetched;
|
|
|
49 $hasFetched = 1;
|
|
|
50 return CGI->new();
|
|
|
51 }
|
|
|
52 }
|
|
|
53
|
|
49
|
54 1;
|
|
|
55
|
|
52
|
56 __END__
|
|
|
57
|
|
49
|
58 =pod
|
|
|
59
|
|
|
60 =head1 SYNOPSIS
|
|
|
61
|
|
|
62 require MyApp;
|
|
|
63 MyApp->instance('app.config')->Run();
|
|
|
64
|
|
|
65 =head1 DESCRIPTION
|
|
|
66
|
|
|
67 Зкземпляр приложения содержит в себе глобальные настройки, реализует контроллер запросов,
|
|
52
|
68 в качестве источника запросов используется CGI или иной совместимый модуль.
|
|
49
|
69
|
|
52
|
70 Процесс обработки запроса состоит из следующих частей
|
|
49
|
71
|
|
52
|
72 1. Получение cgi запроса
|
|
|
73 2. Вызов модуля для инициализации объекта действия
|
|
|
74 3. Инициализация контекста выполнения
|
|
|
75 4. Выполнение запроса
|
|
|
76 5. Преобразование полученных данных в тело ответа
|
|
|
77
|
|
|
78
|
|
|
79
|
|
49
|
80
|
|
|
81 =cut
|
