X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=fe05db7ea12dfeee914b679adbb968765cd73595;hb=f45789b1af1b76c31c498f4b713ab48a5f28ba0c;hp=4e5ea1bc55012d8f0f0ce3a7cc99a27a147a14d4;hpb=66294129a6520edc031aa7a43fc9bdfce669af15;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 4e5ea1b..fe05db7 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -3,9 +3,11 @@ package Catalyst::Request; use strict; use base 'Class::Accessor::Fast'; +use IO::Socket qw[AF_INET inet_aton]; + __PACKAGE__->mk_accessors( - qw/action address arguments body base cookies headers hostname match - method parameters path protocol secure snippets uploads user/ + qw/action address arguments body base cookies headers match method + parameters path protocol secure snippets uploads user/ ); *args = \&arguments; @@ -53,6 +55,7 @@ Catalyst::Request - Catalyst Request Class $req->snippets; $req->upload; $req->uploads; + $req->uri; $req->user; $req->user_agent; @@ -114,6 +117,34 @@ Shortcut to $req->headers->content_length Shortcut to $req->headers->content_type +=item $req->cookie + +A convenient method to $req->cookies. + + $cookie = $c->request->cookie('name'); + @cookies = $c->request->cookie; + +=cut + +sub cookie { + my $self = shift; + + if ( @_ == 0 ) { + return keys %{ $self->cookie }; + } + + if ( @_ == 1 ) { + + my $name = shift; + + unless ( exists $self->cookie->{$name} ) { + return undef; + } + + return $self->cookie->{$name}; + } +} + =item $req->cookies Returns a reference to a hash containing the cookies. @@ -132,9 +163,25 @@ Returns an L object containing the headers. =item $req->hostname -Contains the hostname of the remote user. +Lookup the current users DNS hostname. print $c->request->hostname + +=cut + +sub hostname { + my $self = shift; + + if ( @_ == 0 && not $self->{hostname} ) { + $self->{hostname} = gethostbyaddr( inet_aton( $self->address ), AF_INET ); + } + + if ( @_ == 1 ) { + $self->{hostname} = shift; + } + + return $self->{hostname}; +} =item $req->input @@ -142,8 +189,8 @@ Shortcut for $req->body. =item $req->match -This contains be the matching part of a regexp action. otherwise it -returns the same as 'action'. +This contains the matching part of a regexp action. Otherwise +it returns the same as 'action'. print $c->request->match; @@ -155,7 +202,8 @@ Contains the request method (C, C, C, etc). =item $req->param -Get request parameters with a CGI.pm like param method. +Get request parameters with a CGI.pm-compatible param method. This +is a method for accessing parameters in $c->req->parameters. $value = $c->request->param('foo'); @values = $c->request->param('foo'); @@ -193,6 +241,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} ) { @@ -309,6 +359,18 @@ 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.