Added user again

diff --git a/Changes b/Changes
index 509a2a8..70ce52e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,7 +1,6 @@
 Tis file documents the revision history for Perl extension Catalyst.
 
 5.5
-        - Removed $c->req->user accessor
         - Added $c->controller, $c->model and $c->view shortcuts
         - Switched to Text::SimpleTable
 

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 72da5a7..cd8d20c 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -7,7 +7,7 @@ use IO::Socket qw[AF_INET inet_aton];
 
 __PACKAGE__->mk_accessors(
     qw/action address arguments cookies headers match method
-      protocol query_parameters secure snippets uri/
+      protocol query_parameters secure snippets uri user/
 );
 
 *args         = \&arguments;
@@ -63,6 +63,7 @@ Catalyst::Request - Catalyst Request Class
     $req->upload;
     $req->uploads;
     $req->uri;
+    $req->user;
     $req->user_agent;
 
 See also L<Catalyst>.
@@ -499,6 +500,10 @@ sub uploads {
 
 Returns a URI object for the request.
 
+=item $req->user
+
+Returns the user.
+
 =item $req->user_agent
 
 Shortcut to $req->headers->user_agent. User Agent version string.