typo again :/

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Request.pm

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 6e45e69..f06e27e 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -4,8 +4,8 @@ use strict;
 use base 'Class::Accessor::Fast';
 
 __PACKAGE__->mk_accessors(
-    qw/action arguments base cookies headers match method parameters path
-      snippets uploads user/
+    qw/action address arguments base cookies headers hostname match method
+      parameters path snippets uploads/
 );
 
 *args   = \&arguments;
@@ -31,6 +31,12 @@ Contains the action.
 
     print $c->request->action;
 
+=head3 address
+
+Contains the remote address.
+
+    print $c->request->address
+
 =head3 arguments (args)
 
 Returns an arrayref containing the arguments.
@@ -53,6 +59,12 @@ Returns a L<HTTP::Headers> object containing the headers.
 
     print $c->request->headers->header('X-Catalyst');
 
+=head3 hostname
+
+Contains the remote hostname.
+
+    print $c->request->hostname
+
 =head3 match
 
 Contains the match.
@@ -87,14 +99,11 @@ Returns an arrayref containing regex snippets.
 
 Returns a hashref containing the uploads.
 
-    print $c->request->uploads->{foo}->filename;
-    print $c->request->uploads->{foo}->type;
-    print $c->request->uploads->{foo}->size;
-    my $fh = $c->request->uploads->{foo}->fh;
-
-=head3 user
-
-Returns the 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> };
 
 =head1 AUTHOR