minor refactoring

README

@@ -2,7 +2,7 @@ This is the PSGI branch of WebGUI8
 
 Currently, the best performance is achieved via:
 
- plackup eg/basic.psgi -E none -s Starman --workers 10
+ plackup -E none -s Starman --workers 10
  
 You can benchmark your server via:
 

TODO

@@ -1,10 +1,10 @@
 TODO
 * Deprecate WebGUI::Session::HTTP - replace with WebGUI::Request/Response
 * Turn logger into $self->request->env->{'psgi.errors'}->print(join '', @stuff);
-* Remove WebGUI::Session::Output
 
 DONE
 * $session->request is now a Plack::Request object
 * serverObject gone from WebGUI::Session::open()
 * WebGUI::authen API changed
-* urlHandler API changed - no longer gets server, config
+* urlHandler API changed - no longer gets server, config
+* Streaming response body

lib/WebGUI.pm

@@ -224,7 +224,7 @@ sub handle {
             
             # "chunked" or "empty" means it took care of its own output needs
             if (defined $output && ( $output eq "chunked" || $output eq "empty" )) {
-#                warn "chunked and empty no longer stream, use session->response->stream() instead";
+                warn "chunked and empty no longer stream, use session->response->stream() instead";
                 if ($session->errorHandler->canShowDebug()) {
                     $session->output->print($session->errorHandler->showDebug(),1);
                 }

lib/WebGUI/Session/Request.pm

@@ -1,40 +0,0 @@
-package WebGUI::Session::Request;
-
-use strict;
-use warnings;
-
-=head1 DESCRIPTION
-
-This class wraps calls to $session->request and logs them as a cute way of seeing
-what Apache2::* methods webgui is calling
-
-=cut
-
-sub new {
-    my $class = shift;
-    bless { @_ }, $class;
-}
-
-our $AUTOLOAD;
-sub AUTOLOAD {
-    my $self = shift;
-    my $what = $AUTOLOAD;
-    $what =~ s/.*:://;
-    my $r = $self->{r};
-    my $session = $self->{session};
-
-    if ( !$r ) {
-        $session->log->error("!!request->$what(@_) but r not defined");
-        return;
-    }
-
-    if ( $what eq 'print' ) {
-        $session->log->error("!!request->$what(print--chomped)");
-    }
-    else {
-        $session->log->error("!!request->$what(@_)");
-    }
-    return $r->$what(@_);
-}
-
-1;