--- a/Lib/IMPL/Web/Application.pm	Thu Mar 04 15:46:17 2010 +0300
+++ b/Lib/IMPL/Web/Application.pm	Fri Mar 05 13:59:29 2010 +0300
@@ -4,9 +4,11 @@
 
 use base qw(IMPL::Object IMPL::Object::Singleton);
 use IMPL::Class::Property;
+use CGI;
 
 BEGIN {
     public property handlerError => prop_all;
+    public property factoryAction => prop_all;
 }
 
 # custom factory
@@ -20,11 +22,20 @@
     my ($this) = @_;
     
     while (my $request = $this->fetch_request()) {
-        my $action = $this->prepare_action($request);
-        $action->invoke($request);
+        my $response = new IMPL::Web::Application::Response(request => $request);
     }
 }
 
+{
+	my $hasFetched = 0;
+
+	sub FetchRequest {
+		return undef if $hasFetched;
+		$hasFetched = 1;
+		return CGI->new();
+	}
+}
+
 1;
 
 __END__