X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=442f88825b9007f6c46a63506c9a4a39ce7e86f2;hb=767480fd8b4151e350831a52dbc9c6265bf84485;hp=d1614a30857d4ac02423b776408fad391c1e9b12;hpb=d5f4b4343c1fbca2dac90249c74466a80f79cd5a;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index d1614a3..442f888 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -25,7 +25,7 @@ has _read_length => ( is => 'ro', lazy => 1, ); -has action => (is => 'rw'); +has action => (is => 'rw'); # XXX Deprecated - warn? has address => (is => 'rw'); has arguments => (is => 'rw', default => sub { [] }); has cookies => (is => 'ro', builder => 'prepare_cookies', lazy => 1); @@ -81,10 +81,10 @@ sub prepare_headers { return $headers; } -has _context => ( - is => 'rw', - weak_ref => 1, - clearer => '_clear_context', +has _log => ( + is => 'ro', + weak_ref => 1, + required => 1, ); # Amount of data to read from input on each pass @@ -265,7 +265,7 @@ around parameters => sub { my ($orig, $self, $params) = @_; if ($params) { if ( !ref $params ) { - $self->_context->log->warn( + $self->_log->warn( "Attempt to retrieve '$params' with req->params(), " . "you probably meant to call req->param('$params')" ); @@ -331,8 +331,7 @@ Catalyst::Request - provides information about the current client request =head1 SYNOPSIS $req = $c->request; - $req->action; - $req->address; + $req->address eq "127.0.0.1"; $req->arguments; $req->args; $req->base; @@ -376,14 +375,6 @@ thus hiding the details of the particular engine implementation. =head1 METHODS -=head2 $req->action - -[DEPRECATED] Returns the name of the requested action. - - -Use C<< $c->action >> instead (which returns a -L object). - =head2 $req->address Returns the IP address of the client.