X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=d6fb4889c64a02b6b0d1c324ff62480387563c51;hb=5b2a599c524b51bc64bc3f3ff22297e6fa86f441;hp=04b7338a626f3a915d49681aec03450d88ec7a0b;hpb=06e1b6164a2c9d7b463f358b0d1934ef83a82845;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 04b7338..d6fb488 100644
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -4,11 +4,12 @@ use strict;
 use base 'Class::Accessor::Fast';
 
 __PACKAGE__->mk_accessors(
-    qw/action address arguments base cookies headers input hostname match 
+    qw/action address arguments body base cookies headers hostname match
       method parameters path snippets uploads/
 );
 
 *args   = \&arguments;
+*input  = \&body;
 *params = \&parameters;
 
 sub content_encoding { shift->headers->content_encoding(@_) }
@@ -110,7 +111,10 @@ Contains the url base. This will always have a trailing slash.
 
 =item $req->body
 
-Shortcut for $req->input.
+Contains the message body of the request unless Content-Type is
+C<application/x-www-form-urlencoded> or C<multipart/form-data>.
+
+    print $c->request->body
 
 =item $req->content_encoding
 
@@ -148,10 +152,7 @@ Contains the hostname of the remote user.
 
 =item $req->input
 
-Contains the message body of the request unless Content-Type is
-C<application/x-www-form-urlencoded> or C<multipart/form-data>.
-
-    print $c->request->input
+Shortcut for $req->body.
 
 =item $req->match