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

improved resource classes, contracts are deprecated
author cin
date Thu, 13 Jun 2013 20:13:24 +0400
parents 63709a4e6da0
children
line wrap: on
line source

package IMPL::Web::CGIApplication;
use strict;

use IMPL::declare {
    require => {
        CGIWrapper => 'IMPL::Web::CGIWrapper'        
    },
    base => [
        'IMPL::Web::Application' => '@_'
    ]
};

sub CTOR {
    my ($this) = @_;
    
    $this->output(\*STDOUT) unless $this->output;
}

sub Run {
    my ($this) = @_;
    
    my $query = CGIWrapper->new();
    
    $query->charset('utf-8');
    
    $this->ProcessRequest($query);
}

1;