From: Sebastian Riedel <sri@labs.kraih.com>
Date: Mon, 7 Nov 2005 22:07:17 +0000 (+0000)
Subject: Added user again
X-Git-Tag: 5.7099_04~999
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=7ce7ca2ecb4ece35860bd375529e080a7ed47bb0

Added user again
---

diff --git a/Changes b/Changes
index 509a2a8..70ce52e 100644
--- 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
--- 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.