big kahuna

lib/CW/Plack/Request.pm

@@ -10,13 +10,18 @@ has h => (
 has _request => (
     is       => 'ro',
     init_arg => 'request',
-    required => 1
+    required => 1,
+    handles  => [qw(env)]
 );
 
 sub new_response {
     my ( $self, @args ) = @_;
     my $response = $self->_request->new_response(@args);
-    return CW::Plack::Response->new( response => $response, h => $self->h );
+    return CW::Plack::Response->new(
+        request  => $self,
+        response => $response,
+        h        => $self->h
+    );
 }
 
 1;