X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP.pm;h=0dfc8e32a0f957a11140532dd6bf2e030bcbb7cb;hb=1c6a35b15865e23dbcbb8328df093bc6e50831b6;hp=090b4f20e436da31e57528a928aa1377a365ff4c;hpb=ac5c933bdd463558e8d621507a53a7b247a9093e;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm index 090b4f2..0dfc8e3 100644 --- a/lib/Catalyst/Engine/HTTP.pm +++ b/lib/Catalyst/Engine/HTTP.pm @@ -2,6 +2,7 @@ package Catalyst::Engine::HTTP; use Moose; extends 'Catalyst::Engine::CGI'; + use Data::Dump qw(dump); use Errno 'EWOULDBLOCK'; use HTTP::Date (); @@ -93,7 +94,7 @@ before finalize_read => sub { =cut -befpre prepare_read => sub { +before prepare_read => sub { # Set the input handle to non-blocking *STDIN->blocking(0); }; @@ -150,7 +151,7 @@ around write => sub { $buffer = $headers . $buffer; } - my $ret = $self->$orig( $c, $buffer ); + my $ret = $self->$orig($c, $buffer); if ( !defined $ret ) { $self->{_write_error} = $!; @@ -159,7 +160,7 @@ around write => sub { else { DEBUG && warn "write: Wrote response ($ret bytes)\n"; } - + return $ret; }; @@ -522,19 +523,15 @@ sub _socket_data { sub _inet_addr { unpack "N*", inet_aton( $_[0] ) } +no Moose; + =head1 SEE ALSO -L, L. +L, L =head1 AUTHORS -Sebastian Riedel, - -Dan Kubb, - -Sascha Kiefer, - -Andy Grundman, +Catalyst Contributors, see Catalyst.pm =head1 THANKS