typo again :/

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

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 4a97566..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
-      server_base snippets uploads/
+    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.
@@ -77,10 +89,6 @@ Contains the request method.
 
     print $c->request->method
 
-=head3 server_base
-
-Contains the server part of the uri base.
-
 =head3 snippets
 
 Returns an arrayref containing regex snippets.
@@ -92,9 +100,9 @@ Returns an arrayref containing regex snippets.
 Returns a hashref containing the uploads.
 
     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;
+    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