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