|
244
|
1 package IMPL::Web::CGIApplication;
|
|
|
2 use strict;
|
|
|
3
|
|
|
4 use IMPL::Const qw(:prop);
|
|
|
5 use IMPL::declare {
|
|
|
6 require => {
|
|
|
7 CGIWrapper => 'IMPL::Web::CGIWrapper'
|
|
|
8 },
|
|
|
9 base => [
|
|
|
10 'IMPL::Web::Application' => '@_'
|
|
|
11 ],
|
|
|
12 props => [
|
|
|
13 _queryFetched => PROP_RW
|
|
|
14 ]
|
|
|
15 };
|
|
|
16
|
|
|
17 sub CTOR {
|
|
|
18 my ($this) = @_;
|
|
|
19
|
|
|
20 $this->output(\*STDOUT) unless $this->output;
|
|
|
21 }
|
|
|
22
|
|
|
23 sub FetchRequest {
|
|
|
24 my ($this) = @_;
|
|
|
25
|
|
|
26 return if $this->_queryFetched;
|
|
|
27
|
|
|
28 my $query = CGIWrapper->new();
|
|
|
29
|
|
|
30 $query->charset($this->requestCharset) if $this->requestCharset;
|
|
|
31
|
|
|
32 $this->_queryFetched(1);
|
|
|
33
|
|
|
34 return $query;
|
|
|
35 }
|
|
|
36
|
|
|
37 1; |
