X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FResponse.pm;h=2d83a4801384538883baab581448709f64cd522a;hb=5d2c7203d35650cf3dc99a7b6d6e6659ebc7d559;hp=236f70120589738f635b760db89ce96b4d28553d;hpb=61b1e958102e2371a79e07a7e2cdbb371797d202;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Response.pm b/lib/Catalyst/Response.pm index 236f701..2d83a48 100644 --- a/lib/Catalyst/Response.pm +++ b/lib/Catalyst/Response.pm @@ -3,7 +3,9 @@ package Catalyst::Response; use strict; use base 'Class::Accessor::Fast'; -__PACKAGE__->mk_accessors(qw/cookies headers output redirect status/); +__PACKAGE__->mk_accessors(qw/cookies body headers redirect status/); + +*output = \&body; sub content_encoding { shift->headers->content_encoding(@_) } sub content_length { shift->headers->content_length(@_) } @@ -17,6 +19,7 @@ Catalyst::Response - Catalyst Response Class =head1 SYNOPSIS $resp = $c->response; + $resp->body; $resp->content_encoding; $resp->content_length; $resp->content_type; @@ -38,6 +41,12 @@ to response data. =over 4 +=item $resp->body($text) + + $c->response->body('Catalyst rocks!'); + +Contains the final output. + =item $resp->content_encoding Shortcut to $resp->headers->content_encoding @@ -66,11 +75,9 @@ Returns a L object containing the headers. $c->response->headers->header( 'X-Catalyst' => $Catalyst::VERSION ); -=item $resp->output($text) - -Contains the final output. +=item $resp->output - $c->response->output('Catalyst rocks!'); +Shortcut to $resp->body =item $resp->redirect($url)