Mercurial > pub > Impl

diff Lib/IMPL/Web/CGIApplication.pm @ 285:546957c50a36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*IMPL::Web::Handler::TTView Reworked template selection mechanism *IMPL::Web::Application: refactoring -Removed obsolete IMPL::Text modules
author cin
date Mon, 18 Feb 2013 02:55:59 +0400
parents a02b110da931
children 63709a4e6da0
line wrap: on
line diff
--- a/Lib/IMPL/Web/CGIApplication.pm	Thu Feb 14 19:14:02 2013 +0400
+++ b/Lib/IMPL/Web/CGIApplication.pm	Mon Feb 18 02:55:59 2013 +0400
@@ -1,16 +1,12 @@
 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
     ]
 };
 
@@ -20,18 +16,14 @@
     $this->output(\*STDOUT) unless $this->output;
 }
 
-sub FetchRequest {
+sub Run {
     my ($this) = @_;
     
-    return if $this->_queryFetched;
-    
     my $query = CGIWrapper->new();
     
     $query->charset($this->requestCharset) if $this->requestCharset;
     
-    $this->_queryFetched(1);
-    
-    return $query;
+    $this->ProcessRequest($query);
 }
 
 1;
\ No newline at end of file