Tomas Doran > CatalystX-SimpleLogin > CatalystX::SimpleLogin::TraitFor::Controller::Login::WithRedirect

Download:
CatalystX-SimpleLogin-0.18.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  1
View/Report Bugs
Source  

NAME ^

CatalystX::SimpleLogin::TraitFor::Controller::Login::WithRedirect - redirect users who login back to the page they originally requested.

SYNOPSIS ^

    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' });

DESCRIPTION ^

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

WRAPPED METHODS ^

redirect_after_login_uri

Make it use and extract $c->session->{redirect_to_after_login} if it exists.

METHODS ^

$controller->login_redirect($c, $message)

This sets the error message to $message and sets $c->session->{redirect_to_after_login} to the current URL.

SEE ALSO ^

CatalystX::SimpleLogin::Controller::Login
CatalystX::SimpleLogin::Form::Login

AUTHORS ^

See CatalystX::SimpleLogin for authors.

LICENSE ^

See CatalystX::SimpleLogin for license.

syntax highlighting: