Mercurial > pub > Impl
view Lib/IMPL/Web/CGIApplication.pm @ 281:a8dbddf491dd
refactoring
*IMPL::declare reset abstractProps static property after implementing these props
*IMPL::Serialization: fixed bug with multiple text parts inside one node
*IMPL::Web::Handler::TTView: removed obsolete property 'location' from 'view' template variable
author | cin |
---|---|
date | Mon, 11 Feb 2013 00:58:22 +0400 |
parents | a02b110da931 |
children | 546957c50a36 |
line wrap: on
line source
package IMPL::Web::CGIApplication; use strict; use IMPL::Const qw(:prop); use IMPL::declare { require => { CGIWrapper => 'IMPL::Web::CGIWrapper' }, base => [ 'IMPL::Web::Application' => '@_' ], props => [ _queryFetched => PROP_RW ] }; sub CTOR { my ($this) = @_; $this->output(\*STDOUT) unless $this->output; } sub FetchRequest { my ($this) = @_; return if $this->_queryFetched; my $query = CGIWrapper->new(); $query->charset($this->requestCharset) if $this->requestCharset; $this->_queryFetched(1); return $query; } 1;