Mercurial > pub > Impl
comparison Lib/IMPL/Web/Application.pm @ 62:c64bd1bf727d
Web application
Page query handler
author | wizard |
---|---|
date | Fri, 12 Mar 2010 16:23:46 +0300 |
parents | b0c068da93ac |
children | 76b878ad6596 |
comparison
equal
deleted
inserted
replaced
61:8d0ae27d15c1 | 62:c64bd1bf727d |
---|---|
24 my ($self,$file) = @_; | 24 my ($self,$file) = @_; |
25 | 25 |
26 return $self->LoadXMLFile($file); | 26 return $self->LoadXMLFile($file); |
27 } | 27 } |
28 | 28 |
29 sub CTOR { | |
30 my ($this) = @_; | |
31 | |
32 $this->factoryAction('IMPL::Web::Application::Action') unless $this->factoryAction; | |
33 } | |
34 | |
29 sub Run { | 35 sub Run { |
30 my ($this) = @_; | 36 my ($this) = @_; |
31 | 37 |
32 while (my $query = $this->FetchRequest()) { | 38 while (my $query = $this->FetchRequest()) { |
33 my $response = new IMPL::Web::Application::Response(request => $query); | 39 my $response = new IMPL::Web::Application::Response(query => $query); |
34 | 40 |
35 my $action = new IMPL::Web::Application::Action( | 41 my $action = $this->factoryAction->new( |
36 request => $query, | 42 query => $query, |
37 response => $response, | 43 response => $response, |
38 application => $this, | 44 application => $this, |
39 ); | 45 ); |
40 | 46 |
41 $action->ChainHandler($_) foreach $this->handlersQuery; | 47 $action->ChainHandler($_) foreach $this->handlersQuery; |