=cut
sub body {
- my ( $self, $body ) = @_;
+ my $self = shift;
$self->{_context}->prepare_body;
+
+ return unless $self->{_body};
+
return $self->{_body}->body;
}
=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
=head2 $req->uploads
Returns a reference to a hash containing uploads. Values can be either a
-hashref or a arrayref containing L<Catalyst::Request::Upload> objects.
+L<Catalyst::Request::Upload> object, or an arrayref of
+L<Catalyst::Request::Upload> objects.
my $upload = $c->request->uploads->{field};
my $upload = $c->request->uploads->{field}->[0];