use URI::QueryParam;
__PACKAGE__->mk_accessors(
- qw/action address arguments cookies headers keywords match method
+ qw/action address arguments cookies headers match method
protocol query_parameters secure captures uri user/
);
$req->headers;
$req->hostname;
$req->input;
- $req->keywords;
$req->match;
$req->method;
$req->param;
Alias for $req->body.
-=head2 $req->keywords
-
-Contains the keywords portion of a query string, when no '=' signs are
-present.
-
- http://localhost/path?some+keywords
-
- $c->request->keywords will contain 'some keywords'
-
=head2 $req->match
This contains the matching part of a Regex action. Otherwise
=cut
sub path {
- my ( $self, $params ) = @_;
+ my ( $self, @params ) = @_;
- if ($params) {
- $self->uri->path($params);
+ if (@params) {
+ $self->uri->path(@params);
+ undef $self->{path};
}
- else {
- return $self->{path} if $self->{path};
+ elsif ( defined( my $path = $self->{path} ) ) {
+ return $path;
}
+ else {
+ my $path = $self->uri->path;
+ my $location = $self->base->path;
+ $path =~ s/^(\Q$location\E)?//;
+ $path =~ s/^\///;
+ $self->{path} = $path;
- my $path = $self->uri->path;
- my $location = $self->base->path;
- $path =~ s/^(\Q$location\E)?//;
- $path =~ s/^\///;
- $self->{path} = $path;
-
- return $path;
+ return $path;
+ }
}
=head2 $req->protocol