The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
## @file
# UserDB chaining mechanism

## @class
# UserDB chaining mechanism
package Lemonldap::NG::Portal::UserDBMulti;

use Lemonldap::NG::Portal::_Multi;    #inherits

our $VERSION = '1.4.6';

sub userDBInit {
    my $self = shift;
    return $self->_multi->try( 'userDBInit', 1 );
}

sub getUser {
    my $self = shift;
    return $self->_multi->try( 'getUser', 1 );
}

sub setSessionInfo {
    my $self = shift;
    $self->{sessionInfo}->{_userDBMulti} =
      $self->{_multi}->{stack}->[1]->[0]->{n};
    return $self->_multi->try( 'setSessionInfo', 1 );
}

sub setGroups {
    my $self = shift;
    return $self->_multi->try( 'setGroups', 1 );
}

sub userDBFinish {
    my $self = shift;
    return $self->_multi->try( 'userDBFinish', 1 );
}

1;