X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=8103db93d7aec4756b3a37cbdad57385bdb7ef78;hp=3a52ccf5e79a43a39d375ed0afa7d4f66d600744;hb=bdcb95efa27f8d8fb89623cccbc0b24c78ebfd48;hpb=fdba7a9dced6b7a39c18632468ee593208ed006f diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 3a52ccf..8103db9 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -119,7 +119,7 @@ so C becomes C. use Catalyst 'My::Module'; -Special flags like -Debug and -Engine can also be specifed as arguments when +Special flags like -Debug and -Engine can also be specified as arguments when Catalyst is loaded: use Catalyst qw/-Debug My::Module/; @@ -805,7 +805,6 @@ sub prepare { arguments => [], body_parameters => {}, cookies => {}, - handle => \*STDIN, headers => HTTP::Headers->new, parameters => {}, query_parameters => {}, @@ -818,7 +817,6 @@ sub prepare { { body => '', cookies => {}, - handle => \*STDOUT, headers => HTTP::Headers->new(), status => 200 } @@ -904,6 +902,17 @@ sub prepare_body { } } +=item $c->prepare_body_chunk( $chunk ) + +Prepare a chunk of data before sending it to HTTP::Body. + +=cut + +sub prepare_body_chunk { + my $c = shift; + $c->engine->prepare_body_chunk( $c, @_ ); +} + =item $c->prepare_body_parameters Prepare body parameters. @@ -1342,7 +1351,14 @@ data, if known. =cut -sub write { my $c = shift; return $c->engine->write( $c, @_ ) } +sub write { + my $c = shift; + + # Finalize headers if someone manually writes output + $c->finalize_headers; + + return $c->engine->write( $c, @_ ); +} =back @@ -1489,6 +1505,8 @@ Tatsuhiko Miyagawa Ulf Edvinsson +Yuval Kogman + =head1 AUTHOR Sebastian Riedel, C