view 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
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;