NAME CGI::Application::Plugin::AuthRunmode - interrupt runmode by login transparently

SYNOPSIS use base qw(CGI::Application); use CGI::Application::Plugin::AuthRunmode; use CGI::Application::Plugin::Forward; use CGI::Application::Plugin::LogDispatch; use CGI::Application::Plugin::Redirect; use CGI::Application::Plugin::Session;

    sub cgiapp_init {
        my $self = shift;
        $self->authrm_config({
            'driver' => {
                    'module' => 'OpenID',
                    },
            });
    }

    sub setup {
        my $self = shift;
        $self->start_mode('default');
        $self->run_modes(
            'default'   => &rm_default,
            'admin'     => &rm_admin,
            );
        $self->authrm->add_protected_runmode(
            'admin'
            );
    }

DESCRIPTION TODO

AUTHOR WATANABE Hiroaki, [email protected]

LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.