Removed $c->req->user accessor

diff --git a/Changes b/Changes
index 70ce52e..509a2a8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 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 73c6bb3..72da5a7 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 user/
+      protocol query_parameters secure snippets uri/
 );
 
 *args         = \&arguments;
@@ -63,7 +63,6 @@ Catalyst::Request - Catalyst Request Class
     $req->upload;
     $req->uploads;
     $req->uri;
-    $req->user;
     $req->user_agent;
 
 See also L<Catalyst>.
@@ -123,16 +122,16 @@ then C<base> is C<http://localhost:3000/>.
 
 sub base {
     my ( $self, $base ) = @_;
-    
+
     return $self->{base} unless $base;
-    
+
     $self->{base} = $base;
-    
+
     # set the value in path for backwards-compat
     if ( $self->uri ) {
         $self->path;
     }
-    
+
     return $self->{base};
 }
 
@@ -500,10 +499,6 @@ sub uploads {
 
 Returns a URI object for the request.
 
-=item $req->user
-
-Contains the user name of user if authentication check was successful.
-
 =item $req->user_agent
 
 Shortcut to $req->headers->user_agent. User Agent version string.