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};
}
=item $req->user
-Contains the user name of user if authentication check was successful.
+Returns the user.
=item $req->user_agent