The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
use Mouse;
our $VERSION = '2.0.11';
# INITIALIZATION
sub init {
return $_[0]->SUPER::init(1);
}
# RUNNING METHODS
sub getUser {
my ( $self, $req, %args ) = @_;
$self->checkChoice($req) or return PE_FIRSTACCESS;
my $res = $req->data->{enabledMods1}->[0]->getUser( $req, %args );
delete $req->pdata->{_choice} if ( $res > 0 );
return $res;
}
sub findUser {
my ( $self, $req, %args ) = @_;
$self->checkChoice($req) or return PE_FIRSTACCESS;
my $res = $req->data->{enabledMods1}->[0]->findUser( $req, %args );
delete $req->pdata->{_choice} if ( $res > 0 );
return $res;
}
sub setSessionInfo {
my $res = $_[1]->data->{enabledMods1}->[0]->setSessionInfo( $_[1] );
delete $_[1]->pdata->{_choice} if ( $res > 0 );
return $res;
}
sub setGroups {
$_[0]->checkChoice( $_[1] );
my $res = $_[1]->data->{enabledMods1}->[0]->setGroups( $_[1] );
delete $_[1]->pdata->{_choice} if ( $res > 0 );
return $res;
}
1;