=head2 $req->action
-Returns the requested action as a L<Catalyst::Action> object.
+[DEPRECATED] Returns the name of the requested action.
+
+
+Use C<< $c->action >> instead (which returns a
+L<Catalyst::Action|Catalyst::Action> object).
=head2 $req->address
=cut
sub body {
- my ( $self, $body ) = @_;
+ my $self = shift;
$self->{_context}->prepare_body;
+
+ return unless $self->{_body};
+
return $self->{_body}->body;
}
=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];
my( $self, $args ) = @_;
carp( 'No arguments passed to uri_with()' ) unless $args;
-
+
for my $value ( values %$args ) {
- my $isa_ref = ref $value;
- if( $isa_ref and $isa_ref ne 'ARRAY' ) {
- croak( "Non-array reference ($isa_ref) passed to uri_with()" );
+ next unless defined $value;
+ for ( ref $value eq 'ARRAY' ? @$value : $value ) {
+ $_ = "$_";
+ utf8::encode( $_ );
}
- utf8::encode( $_ ) for grep{ defined } $isa_ref ? @$value : $value;
};
+
my $uri = $self->uri->clone;
$uri->query_form( {