X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=c859fd27af793fcc6f03570d942f14bfdefe55f1;hb=4ac0b9cb8e9043db8a95f44af685c782bf9426e7;hp=45b87f1cb131d288a8acc14a68ce85ac22363c0e;hpb=b1860d6c8cb5b00007c6f48410fd4d2616630b27;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 45b87f1..c859fd2 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -26,7 +26,7 @@ has query_parameters => (is => 'rw', default => sub { {} }); has secure => (is => 'rw', default => 0); has captures => (is => 'rw', default => sub { [] }); has uri => (is => 'rw', predicate => 'has_uri'); -has remote_user => (is => 'rw'); +has user => (is => 'rw'); has headers => ( is => 'rw', isa => 'HTTP::Headers', @@ -121,20 +121,6 @@ has hostname => ( has _path => ( is => 'rw', predicate => '_has_path', clearer => '_clear_path' ); -# XXX: Deprecated in 5.8000 due to confusion between Engines and Plugin::Authentication. Remove in 5.x000? -has user => (is => 'rw'); - -before user => sub { - my ($self, $user) = @_; - # Allow Engines and Plugin::Authentication to set without warning - my $caller = (caller(2))[0]; - if ( $caller !~ /^Catalyst::(Engine|Plugin::Authentication)/ ) { - $self->_context->log->warn( - 'Attempt to use $c->req->user; this is deprecated. ' . - 'You probably meant to call $c->user or $c->req->remote_user' ); - } -}; - sub args { shift->arguments(@_) } sub body_params { shift->body_parameters(@_) } sub input { shift->body(@_) } @@ -591,11 +577,6 @@ sub uri_with { Returns the currently logged in user. Deprecated. The method recommended for newer plugins is $c->user. -=head2 $req->remote_user - -Returns the value of the C environment variable. Previously -available via $req->user. - =head2 $req->user_agent Shortcut to $req->headers->user_agent. Returns the user agent (browser)