Mercurial > pub > Impl

annotate Lib/IMPL/Web/CGIApplication.pm @ 335:e8be9062ecf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved resource classes, contracts are deprecated
author cin
date Thu, 13 Jun 2013 20:13:24 +0400
parents 63709a4e6da0
children
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::declare {
a02b110da931 refactoring
sergey
parents:
diff changeset
5 require => {
a02b110da931 refactoring
sergey
parents:
diff changeset
6 CGIWrapper => 'IMPL::Web::CGIWrapper'
a02b110da931 refactoring
sergey
parents:
diff changeset
7 },
a02b110da931 refactoring
sergey
parents:
diff changeset
8 base => [
a02b110da931 refactoring
sergey
parents:
diff changeset
9 'IMPL::Web::Application' => '@_'
a02b110da931 refactoring
sergey
parents:
diff changeset
10 ]
a02b110da931 refactoring
sergey
parents:
diff changeset
11 };
a02b110da931 refactoring
sergey
parents:
diff changeset
12
a02b110da931 refactoring
sergey
parents:
diff changeset
13 sub CTOR {
a02b110da931 refactoring
sergey
parents:
diff changeset
14 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
15
a02b110da931 refactoring
sergey
parents:
diff changeset
16 $this->output(\*STDOUT) unless $this->output;
a02b110da931 refactoring
sergey
parents:
diff changeset
17 }
a02b110da931 refactoring
sergey
parents:
diff changeset
18
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
19 sub Run {
244
a02b110da931 refactoring
sergey
parents:
diff changeset
20 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
21
a02b110da931 refactoring
sergey
parents:
diff changeset
22 my $query = CGIWrapper->new();
a02b110da931 refactoring
sergey
parents:
diff changeset
23
328
63709a4e6da0 Security framework refactoring
cin
parents: 285
diff changeset
24 $query->charset('utf-8');
244
a02b110da931 refactoring
sergey
parents:
diff changeset
25
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
26 $this->ProcessRequest($query);
244
a02b110da931 refactoring
sergey
parents:
diff changeset
27 }
a02b110da931 refactoring
sergey
parents:
diff changeset
28
a02b110da931 refactoring
sergey
parents:
diff changeset
29 1;