| CatalystX::SimpleLogin::TraitFor::Controller::Login::WithRedirect(3pm) | User Contributed Perl Documentation | CatalystX::SimpleLogin::TraitFor::Controller::Login::WithRedirect(3pm) |
CatalystX::SimpleLogin::TraitFor::Controller::Login::WithRedirect - redirect users who login back to the page they originally requested.
package MyApp::Controller::NeedsAuth;
use Moose;
use namespace::autoclean;
# One needs to inherit from Catalyst::Controller in order
# to get the Does('NeedsLogin') functionality.
BEGIN { extends 'Catalyst::Controller'; }
sub inbox : Path Does('NeedsLogin') {
# Redirects to /login if not logged in
my ($self, $c) = @_;
$c->stash->{template} = "inbox.tt2";
return;
}
# Turn on in config
MyApp->config('Contoller::Login' => { traits => 'WithRedirect' });
Provides the "login" action with a wrapper to redirect to a page which needs authentication, from which the user was previously redirected. Goes hand in hand with Catalyst::ActionRole::NeedsLogin
Make it use and extract "$c->session->{redirect_to_after_login}" if it exists.
This sets the error message to $message and sets "$c->session->{redirect_to_after_login}" to the current URL.
See CatalystX::SimpleLogin for authors.
See CatalystX::SimpleLogin for license.
| 2022-08-28 | perl v5.36.0 |