X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=41f8d8d04024d94bf0231fd1e933a22e70080390;hb=db046247b008e64c5625b3a52570015826b8a0ee;hp=141e6be59597a9a57f96f0abfbdd08e3f7d34fa3;hpb=61b1e958102e2371a79e07a7e2cdbb371797d202;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 141e6be..41f8d8d 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -4,11 +4,12 @@ use strict; use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors( - qw/action address arguments base cookies headers hostname match method - parameters path snippets uploads/ + qw/action address arguments body base cookies headers hostname match + method parameters path protocol secure snippets uploads user/ ); *args = \&arguments; +*input = \&body; *params = \¶meters; sub content_encoding { shift->headers->content_encoding(@_) } @@ -31,6 +32,7 @@ Catalyst::Request - Catalyst Request Class $req->args; $req->arguments; $req->base; + $req->body; $req->content_encoding; $req->content_length; $req->content_type; @@ -38,15 +40,22 @@ Catalyst::Request - Catalyst Request Class $req->header; $req->headers; $req->hostname; + $req->input; $req->match; $req->method; - $req->parameters; + $req->param; $req->params; + $req->parameters; $req->path; + $req->protocol; $req->referer; + $req->secure; $req->snippets; + $req->upload; $req->uploads; - $req->user_agent + $req->uri; + $req->user; + $req->user_agent; See also L. @@ -87,6 +96,13 @@ Returns a reference to an array containing the arguments. Contains the url base. This will always have a trailing slash. +=item $req->body + +Contains the message body of the request unless Content-Type is +C or C. + + print $c->request->body + =item $req->content_encoding Shortcut to $req->headers->content_encoding @@ -121,9 +137,13 @@ Contains the hostname of the remote user. print $c->request->hostname +=item $req->input + +Shortcut for $req->body. + =item $req->match -This contains be the matching part of a regexp action. otherwise it +This contains be the matching part of a regexp action. otherwise it returns the same as 'action'. print $c->request->match; @@ -132,7 +152,63 @@ returns the same as 'action'. Contains the request method (C, C, C, etc). - print $c->request->method + print $c->request->method; + +=item $req->param + +Get request parameters with a CGI.pm like param method. + + $value = $c->request->param('foo'); + @values = $c->request->param('foo'); + @params = $c->request->param; + +=cut + +sub param { + my $self = shift; + + if ( @_ == 0 ) { + return keys %{ $self->parameters }; + } + + if ( @_ == 1 ) { + + my $param = shift; + + unless ( exists $self->parameters->{$param} ) { + return wantarray ? () : undef; + } + + if ( ref $self->parameters->{$param} eq 'ARRAY' ) { + return (wantarray) + ? @{ $self->parameters->{$param} } + : $self->parameters->{$param}->[0]; + } + else { + return (wantarray) + ? ( $self->parameters->{$param} ) + : $self->parameters->{$param}; + } + } + + if ( @_ > 1 ) { + + while ( my ( $field, $value ) = splice( @_, 0, 2 ) ) { + + next unless defined $field; + + if ( exists $self->parameters->{$field} ) { + for ( $self->parameters->{$field} ) { + $_ = [$_] unless ref($_) eq "ARRAY"; + push( @$_, $value ); + } + } + else { + $self->parameters->{$field} = $value; + } + } + } +} =item $req->params @@ -140,9 +216,11 @@ Shortcut for $req->parameters. =item $req->parameters -Returns a reference to a hash containing the parameters. +Returns a reference to a hash containing parameters. Values can +be either a scalar or a arrayref containing scalars. - print $c->request->parameters->{foo}; + print $c->request->parameters->{field}; + print $c->request->parameters->{field}->[0]; =item $req->path @@ -150,25 +228,105 @@ Contains the path. print $c->request->path; +=item $req->protocol + +Contains the protocol. + =item $req->referer Shortcut to $req->headers->referer. Referring page. +=item $req->secure + +Contains a boolean whether the communciation is secure. + =item $req->snippets Returns a reference to an array containing regex snippets. my @snippets = @{ $c->request->snippets }; +=item $req->upload + +A convenient method to $req->uploads. + + $upload = $c->request->upload('field'); + @uploads = $c->request->upload('field'); + @fields = $c->request->upload; + + for my $upload ( $c->request->upload('field') ) { + print $upload->filename; + } + +=cut + +sub upload { + my $self = shift; + + if ( @_ == 0 ) { + return keys %{ $self->uploads }; + } + + if ( @_ == 1 ) { + + my $upload = shift; + + unless ( exists $self->uploads->{$upload} ) { + return wantarray ? () : undef; + } + + if ( ref $self->uploads->{$upload} eq 'ARRAY' ) { + return (wantarray) + ? @{ $self->uploads->{$upload} } + : $self->uploads->{$upload}->[0]; + } + else { + return (wantarray) + ? ( $self->uploads->{$upload} ) + : $self->uploads->{$upload}; + } + } + + if ( @_ > 1 ) { + + while ( my ( $field, $upload ) = splice( @_, 0, 2 ) ) { + + if ( exists $self->uploads->{$field} ) { + for ( $self->uploads->{$field} ) { + $_ = [$_] unless ref($_) eq "ARRAY"; + push( @$_, $upload ); + } + } + else { + $self->uploads->{$field} = $upload; + } + } + } +} + =item $req->uploads -Returns a reference to a hash containing the uploads. +Returns a reference to a hash containing uploads. Values can be either a +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 - my $filename = $c->req->parameters->{foo}; - print $c->request->uploads->{$filename}->{type}; - print $c->request->uploads->{$filename}->{size}; - my $fh = $c->request->uploads->{$filename}->{fh}; - my $content = do { local $/; <$fh> }; +Contains the user name of user if authentication check was successful. =item $req->user_agent @@ -183,7 +341,7 @@ Marcus Ramberg, C =head1 COPYRIGHT -This program is free software, you can redistribute it and/or modify +This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut