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;