X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=22516e1f084f680d1ebe46681c3134ef7b8e8ef3;hb=42a57832aea5e5c4684d534aa7d133c15aac4b42;hp=f076fbd53526727554240122f01f8569cd365e76;hpb=e7c0c583d6e12e822dd26bf1282eb610c9a59351;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index f076fbd..22516e1 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -18,11 +18,10 @@ sub header { shift->headers->header(@_) } sub referer { shift->headers->referer(@_) } sub user_agent { shift->headers->user_agent(@_) } - sub _assign_values { my ( $self, $map, $values ) = @_; - - while ( my ( $name, $value ) = splice( @{ $values }, 0, 2 ) ) { + + while ( my ( $name, $value ) = splice( @{$values}, 0, 2 ) ) { if ( exists $map->{$name} ) { for ( $map->{$name} ) { @@ -226,7 +225,7 @@ A convenient method to $req->uploads. @fields = $c->request->upload; for my $upload ( $c->request->upload('field') ) { - print $upload->{filename}; + print $upload->filename; } =cut @@ -258,38 +257,12 @@ sub upload { =item $req->uploads -Returns a reference to a hash containing uploads. Values can -be either a hashref or a arrayref containing hashrefs. +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]; -The upload hashref contains the following keys: - -=over 4 - -=item * fh - -Filehandle. - -=item * filename - -Client supplied filename. - -=item * size - -Size of the file in bytes. - -=item * tempname - -Path to the temporary spool file. - -=item * type - -Client supplied Content-Type. - -=back - =item $req->user_agent Shortcut to $req->headers->user_agent. User Agent version string.