fixed end inheritance

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Request.pm
diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm

index 1276fc5..f6ffd4e 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -11,6 +11,13 @@ __PACKAGE__->mk_accessors(
 *args   = \&arguments;
 *params = \&parameters;
 
+sub content_encoding { shift->headers->content_encoding(@_) }
+sub content_length   { shift->headers->content_length(@_)   }
+sub content_type     { shift->headers->content_type(@_)     }
+sub header           { shift->headers->header(@_)           }
+sub referer          { shift->headers->referer(@_)          }
+sub user_agent       { shift->headers->user_agent(@_)       }
+
 =head1 NAME
 
 Catalyst::Request - Catalyst Request Class
@@ -24,7 +31,11 @@ Catalyst::Request - Catalyst Request Class
     $req->args;
     $req->arguments;
     $req->base;
+    $req->content_encoding;
+    $req->content_length;
+    $req->content_type;
     $req->cookies;
+    $req->header;
     $req->headers;
     $req->hostname;
     $req->match;
@@ -32,8 +43,10 @@ Catalyst::Request - Catalyst Request Class
     $req->parameters;
     $req->params;
     $req->path;
+    $req->referer;
     $req->snippets;
     $req->uploads;
+    $req->user_agent
 
 See also L<Catalyst>.
 
@@ -72,12 +85,28 @@ Returns a reference to an array containing the arguments.
 
 Contains the uri base.
 
+=item $req->content_encoding
+
+Shortcut to $req->headers->content_encoding
+
+=item $req->content_length
+
+Shortcut to $req->headers->content_length
+
+=item $req->content_type
+
+Shortcut to $req->headers->content_type
+
 =item $req->cookies
 
 Returns a reference to a hash containing the cookies.
 
     print $c->request->cookies->{mycookie}->value;
 
+=item $req->header
+
+Shortcut to $req->headers->header
+
 =item $req->headers
 
 Returns an L<HTTP::Headers> object containing the headers.
@@ -96,6 +125,12 @@ Contains the match.
 
     print $c->request->match;
 
+=item $req->method
+
+Contains the request method (C<GET>, C<POST>, C<HEAD>, etc).
+
+    print $c->request->method
+
 =item $req->parameters
 
 =item $req->params
@@ -110,11 +145,9 @@ Contains the path.
 
     print $c->request->path;
 
-=item $req->method
-
-Contains the request method (C<GET>, C<POST>, C<HEAD>, etc).
+=item $req->referer
 
-    print $c->request->method
+Shortcut to $req->headers->referer
 
 =item $req->snippets
 
@@ -132,6 +165,10 @@ Returns a reference to a hash containing the uploads.
     my $fh = $c->request->uploads->{$filename}->{fh};
     my $content = do { local $/; <$fh> };
 
+=item $req->user_agent
+
+Shortcut to $req->headers->user_agent
+
 =back
 
 =head1 AUTHOR