annotate Lib/IMPL/Web/CGIApplication.pm @ 263:0f59b2de72af

*fixed IMPL::DOM::Schema circular module references *modified IMPL::Object::Singleton, added auto-activation *code cleanups, docs
author sergey
date Wed, 09 Jan 2013 05:17:44 +0400
parents a02b110da931
children 546957c50a36
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
244
a02b110da931 refactoring
sergey
parents:
diff changeset
1 package IMPL::Web::CGIApplication;
a02b110da931 refactoring
sergey
parents:
diff changeset
2 use strict;
a02b110da931 refactoring
sergey
parents:
diff changeset
3
a02b110da931 refactoring
sergey
parents:
diff changeset
4 use IMPL::Const qw(:prop);
a02b110da931 refactoring
sergey
parents:
diff changeset
5 use IMPL::declare {
a02b110da931 refactoring
sergey
parents:
diff changeset
6 require => {
a02b110da931 refactoring
sergey
parents:
diff changeset
7 CGIWrapper => 'IMPL::Web::CGIWrapper'
a02b110da931 refactoring
sergey
parents:
diff changeset
8 },
a02b110da931 refactoring
sergey
parents:
diff changeset
9 base => [
a02b110da931 refactoring
sergey
parents:
diff changeset
10 'IMPL::Web::Application' => '@_'
a02b110da931 refactoring
sergey
parents:
diff changeset
11 ],
a02b110da931 refactoring
sergey
parents:
diff changeset
12 props => [
a02b110da931 refactoring
sergey
parents:
diff changeset
13 _queryFetched => PROP_RW
a02b110da931 refactoring
sergey
parents:
diff changeset
14 ]
a02b110da931 refactoring
sergey
parents:
diff changeset
15 };
a02b110da931 refactoring
sergey
parents:
diff changeset
16
a02b110da931 refactoring
sergey
parents:
diff changeset
17 sub CTOR {
a02b110da931 refactoring
sergey
parents:
diff changeset
18 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
19
a02b110da931 refactoring
sergey
parents:
diff changeset
20 $this->output(\*STDOUT) unless $this->output;
a02b110da931 refactoring
sergey
parents:
diff changeset
21 }
a02b110da931 refactoring
sergey
parents:
diff changeset
22
a02b110da931 refactoring
sergey
parents:
diff changeset
23 sub FetchRequest {
a02b110da931 refactoring
sergey
parents:
diff changeset
24 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
25
a02b110da931 refactoring
sergey
parents:
diff changeset
26 return if $this->_queryFetched;
a02b110da931 refactoring
sergey
parents:
diff changeset
27
a02b110da931 refactoring
sergey
parents:
diff changeset
28 my $query = CGIWrapper->new();
a02b110da931 refactoring
sergey
parents:
diff changeset
29
a02b110da931 refactoring
sergey
parents:
diff changeset
30 $query->charset($this->requestCharset) if $this->requestCharset;
a02b110da931 refactoring
sergey
parents:
diff changeset
31
a02b110da931 refactoring
sergey
parents:
diff changeset
32 $this->_queryFetched(1);
a02b110da931 refactoring
sergey
parents:
diff changeset
33
a02b110da931 refactoring
sergey
parents:
diff changeset
34 return $query;
a02b110da931 refactoring
sergey
parents:
diff changeset
35 }
a02b110da931 refactoring
sergey
parents:
diff changeset
36
a02b110da931 refactoring
sergey
parents:
diff changeset
37 1;