30 lines
536 B
Perl
30 lines
536 B
Perl
![]() |
package Lemonldap::NG::Portal::Main;
|
||
|
|
||
|
use strict;
|
||
|
use Mouse;
|
||
|
|
||
|
our $VERSION = '2.0.0';
|
||
|
|
||
|
extends qw(Lemonldap::NG::Handler::PSGI::Try Lemonldap::NG::Portal::Main::Init);
|
||
|
|
||
|
has stack => ( is => 'rw' );
|
||
|
|
||
|
# ENTRY POINT METHODS
|
||
|
# -------------------
|
||
|
|
||
|
# All methods below have been declared as Lemonldap::NG::Common::PSGI::Router
|
||
|
# routes (see Lemonldap::NG::Portal::Main::Init)
|
||
|
|
||
|
sub issuerForAuthUser {
|
||
|
my ( $self, $type, $req ) = @_;
|
||
|
}
|
||
|
|
||
|
sub issuerForUnauthUser {
|
||
|
my ( $self, $type, $req ) = @_;
|
||
|
}
|
||
|
|
||
|
# TODO in run
|
||
|
# - mustRedirect
|
||
|
|
||
|
1;
|