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

use strict;
use Mouse;
our $VERSION = '2.0.12';
extends qw(
Lemonldap::NG::Portal::Lib::Remote
);
# RUNNING METHODS
*getUser = *Lemonldap::NG::Portal::Lib::Remote::checkRemoteId;
sub findUser {
# Nothing to do here
return PE_OK;
}
sub setSessionInfo {
my ( $self, $req ) = @_;
delete $req->data->{rSessionInfo}->{_session_id};
$req->{sessionInfo} = $req->data->{rSessionInfo};
return PE_OK;
}
sub setGroups {
return PE_OK;
}
1;