X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=b38b693e1e0904f7057fa0757e9ccfcaab694c5f;hb=79f8efb873b3bb1d33f156969a5ce5c95d28f4cf;hp=3aaa6aff85485748006c84b906dde9ccd61a2f7d;hpb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 3aaa6af..b38b693 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -6,7 +6,7 @@ use base 'Class::Accessor::Fast'; use IO::Socket qw[AF_INET inet_aton]; __PACKAGE__->mk_accessors( - qw/action address arguments base cookies handle headers match method + qw/action address arguments base cookies headers match method protocol query_parameters secure snippets uri user/ ); @@ -44,7 +44,6 @@ Catalyst::Request - Catalyst Request Class $req->content_type; $req->cookie; $req->cookies; - $req->handle; $req->header; $req->headers; $req->hostname; @@ -188,10 +187,6 @@ Returns a reference to a hash containing the cookies. print $c->request->cookies->{mycookie}->value; -=item $req->handle - -Request IO handle. - =item $req->header Shortcut to $req->headers->header @@ -334,19 +329,17 @@ alias for path, added for compability with L sub path { my ( $self, $params ) = @_; - - if ( $params ) { - # base must always have a trailing slash - $params .= '/' unless ( $params =~ /\/$/ ); - $self->uri->path( $params ); + + if ($params) { + $self->uri->path($params); } - my $path = $self->uri->path; + my $path = $self->uri->path; my $location = $self->base->path; $path =~ s/^(\Q$location\E)?//; $path =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; $path =~ s/^\///; - + return $path; } @@ -380,7 +373,7 @@ Shortcut to $req->headers->referer. Referring page. =item $req->secure -Contains a boolean whether the communciation is secure. +Contains a boolean denoting whether the communication is secure. =item $req->snippets