Mercurial > pub > Impl
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;