has secure => (is => 'rw', default => 0);
has captures => (is => 'rw', default => sub { [] });
has uri => (is => 'rw', predicate => 'has_uri');
-has user => (is => 'rw');
+has remote_user => (is => 'rw');
has headers => (
is => 'rw',
isa => 'HTTP::Headers',
lazy => 1,
);
-# Moose TODO:
-# - Can we lose the before modifiers which just call prepare_body ?
-# they are wasteful, slow us down and feel cluttery.
-# Can we call prepare_body at BUILD time?
-# Can we make _body an attribute, have the rest of
-# these lazy build from there and kill all the direct hash access
-# in Catalyst.pm and Engine.pm?
-
has _context => (
is => 'rw',
weak_ref => 1,
default => sub { {} },
);
-before body_parameters => sub {
- my ($self) = @_;
- $self->_context->prepare_body();
-};
-
has uploads => (
is => 'rw',
required => 1,
default => sub { {} },
);
+# TODO:
+# - Can we lose the before modifiers which just call prepare_body ?
+# they are wasteful, slow us down and feel cluttery.
+
+# Can we make _body an attribute, have the rest of
+# these lazy build from there and kill all the direct hash access
+# in Catalyst.pm and Engine.pm?
+
+before $_ => sub {
+ my ($self) = @_;
+ my $context = $self->_context || return;
+ $context->prepare_body;
+} for qw/parameters body_parameters/;
+
around parameters => sub {
my ($orig, $self, $params) = @_;
if ($params) {
has _path => ( is => 'rw', predicate => '_has_path', clearer => '_clear_path' );
+# XXX: Deprecated in docs ages ago (2006), deprecated with warning in 5.8000 due
+# to confusion between Engines and Plugin::Authentication. Remove in 5.8100?
+has user => (is => 'rw');
+
sub args { shift->arguments(@_) }
sub body_params { shift->body_parameters(@_) }
sub input { shift->body(@_) }
=head2 $req->user
-Returns the currently logged in user. Deprecated. The method recommended for
-newer plugins is $c->user.
+Returns the currently logged in user. B<Highly deprecated>, do not call,
+this will be removed in version 5.81.
+
+=head2 $req->remote_user
+
+Returns the value of the C<REMOTE_USER> environment variable.
=head2 $req->user_agent