X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=41f8d8d04024d94bf0231fd1e933a22e70080390;hb=db046247b008e64c5625b3a52570015826b8a0ee;hp=8f965052d62adc7c7914ee06d2e5977307d1c6d1;hpb=032221564b1da678e7f13b97a4cd99a05a31c35c;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 8f96505..41f8d8d 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -5,7 +5,7 @@ use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors( qw/action address arguments body base cookies headers hostname match - method parameters path protocol secure snippets uploads/ + method parameters path protocol secure snippets uploads user/ ); *args = \&arguments; @@ -53,7 +53,9 @@ Catalyst::Request - Catalyst Request Class $req->snippets; $req->upload; $req->uploads; - $req->user_agent + $req->uri; + $req->user; + $req->user_agent; See also L. @@ -192,6 +194,8 @@ sub param { if ( @_ > 1 ) { while ( my ( $field, $value ) = splice( @_, 0, 2 ) ) { + + next unless defined $field; if ( exists $self->parameters->{$field} ) { for ( $self->parameters->{$field} ) { @@ -308,6 +312,22 @@ hashref or a arrayref containing C objects. my $upload = $c->request->uploads->{field}; my $upload = $c->request->uploads->{field}->[0]; +=item $req->uri + +Shortcut for C<< $req->base . $req->path >>. + +=cut + +sub uri { + my $self = shift; + my $path = shift || $self->path || ''; + return $self->base . $path; +} + +=item $req->user + +Contains the user name of user if authentication check was successful. + =item $req->user_agent Shortcut to $req->headers->user_agent. User Agent version string.