X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FResponse.pm;h=cd818579615e578d82d6765afd9625165b1d60ca;hb=8738b8fecb20f3761d76a8d7f46660fdae54993a;hp=185dc99727b309c32e00876156f9dc5a511edd1b;hpb=9c4288eaedee0bba8e4a123b4664bc07a4b5c24c;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Response.pm b/lib/Catalyst/Response.pm index 185dc99..cd81857 100644 --- a/lib/Catalyst/Response.pm +++ b/lib/Catalyst/Response.pm @@ -43,22 +43,11 @@ has headers => ( required => 1, lazy => 1, ); -has _context => ( - is => 'rw', - weak_ref => 1, - clearer => '_clear_context', -); sub output { shift->body(@_) } sub code { shift->status(@_) } -=head2 $self->write($buffer) - -Writes the buffer to the client. - -=cut - sub write { my ( $self, $buffer ) = @_; @@ -73,12 +62,6 @@ sub write { return $len; } -=head2 $self->finalize_headers($c) - -Abstract method, allows engines to write headers to response - -=cut - sub finalize_headers { my ($self) = @_; @@ -263,6 +246,10 @@ Writes $data to the output stream. Prints @data to the output stream, separated by $,. This lets you pass the response object to functions that want to write to an L. +=head2 $self->finalize_headers($c) + +Writes headers to response if not already written + =head2 DEMOLISH Ensures that the response is flushed and closed at the end of the