X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=f6ffd4ef5e5688804607d8d2a56e0e68f0ee46a1;hb=f8568ac8fb1ae94ac4ed01a5ac1812b93af422be;hp=1276fc5357f65a2a5effe94b7b1d31dcdb92d2e7;hpb=b22c66686d892bba76a150f727561f8778f3ea72;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 1276fc5..f6ffd4e 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -11,6 +11,13 @@ __PACKAGE__->mk_accessors( *args = \&arguments; *params = \¶meters; +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. @@ -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 object containing the headers. @@ -96,6 +125,12 @@ Contains the match. print $c->request->match; +=item $req->method + +Contains the request method (C, C, C, 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, C, C, 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