X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP.pm;h=0024009e2591655bac782e16a717efc3e16de38a;hp=f685a1ed93fb3bc1d806ab9dc84f8704a2d1d603;hb=b5ecfcf07b8ffe7e9984f0279c8781ce51c6ac6a;hpb=640faa87f0c572b58acd22124bfa6f6c59106873 diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm index f685a1e..0024009 100644 --- a/lib/Catalyst/Engine/HTTP.pm +++ b/lib/Catalyst/Engine/HTTP.pm @@ -7,7 +7,7 @@ use HTTP::Status; use NEXT; use Socket; use IO::Socket::INET (); -use IO::Select (); +use IO::Select (); # For PAR require Catalyst::Engine::HTTP::Restarter; @@ -37,9 +37,7 @@ This is the Catalyst engine specialized for development and testing. =head1 METHODS -=over 4 - -=item $self->finalize_headers($c) +=head2 $self->finalize_headers($c) =cut @@ -55,7 +53,7 @@ sub finalize_headers { $self->NEXT::finalize_headers($c); } -=item $self->finalize_read($c) +=head2 $self->finalize_read($c) =cut @@ -69,7 +67,7 @@ sub finalize_read { return $self->NEXT::finalize_read($c); } -=item $self->prepare_read($c) +=head2 $self->prepare_read($c) =cut @@ -82,7 +80,7 @@ sub prepare_read { return $self->NEXT::prepare_read($c); } -=item $self->read_chunk($c, $buffer, $length) +=head2 $self->read_chunk($c, $buffer, $length) =cut @@ -108,7 +106,7 @@ sub read_chunk { } } -=item run +=head2 run =cut @@ -228,8 +226,8 @@ sub _handler { # Initialize CGI environment local %ENV = ( - PATH_INFO => $path || '', - QUERY_STRING => $query_string || '', + PATH_INFO => $path || '', + QUERY_STRING => $query_string || '', REMOTE_ADDR => $sockdata->{peeraddr}, REMOTE_HOST => $sockdata->{peername}, REQUEST_METHOD => $method || '', @@ -336,8 +334,6 @@ sub _get_line { sub _inet_addr { unpack "N*", inet_aton( $_[0] ) } -=back - =head1 SEE ALSO L, L.