fixed forwarding to class method pairs and did some cleaning

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine / Apache.pm

diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm
index 55d8e89..5f8db71 100644 (file)
--- a/lib/Catalyst/Engine/Apache.pm
+++ b/lib/Catalyst/Engine/Apache.pm
@@ -9,6 +9,7 @@ use URI;
 # mod_perl
 if (MP2) {
     require Apache2;
+    require Apache::Connection;
     require Apache::RequestIO;
     require Apache::RequestRec;
     require Apache::SubRequest;
@@ -96,6 +97,16 @@ sub finalize_output {
     $c->original_request->print( $c->response->{output} );
 }
 
+=item $c->prepare_connection
+
+=cut
+
+sub prepare_connection {
+    my $c = shift;
+    $c->req->hostname( $c->apache_request->connection->remote_host );
+    $c->req->address( $c->apache_request->connection->remote_ip );
+}
+
 =item $c->prepare_cookies
 
 =cut
@@ -177,6 +188,12 @@ sub prepare_uploads {
     }
 }
 
+=item $c->run
+
+=cut
+
+sub run { }
+
 =back
 
 =head1 SEE ALSO