The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
##@file
# Choice user backend file

##@class
# Choice user backend class
package Lemonldap::NG::Portal::UserDBChoice;

use strict;
use Lemonldap::NG::Portal::_Choice;
use Lemonldap::NG::Portal::Simple;

#inherits Lemonldap::NG::Portal::_Choice

our $VERSION = '1.9.1';

## @apmethod int userDBInit()
# Does nothing
# @return Lemonldap::NG::Portal constant
sub userDBInit {
    my $self = shift;
    return $self->_choice->try( 'userDBInit', 1 );
}

## @apmethod int getUser()
# Does nothing
# @return Lemonldap::NG::Portal constant
sub getUser {
    my $self = shift;
    return $self->_choice->try( 'getUser', 1 );
}

## @apmethod int setSessionInfo()
# Does nothing
# @return Lemonldap::NG::Portal constant
sub setSessionInfo {
    my $self = shift;
    return $self->_choice->try( 'setSessionInfo', 1 );
}

## @apmethod int setGroups()
# Does nothing
# @return Lemonldap::NG::Portal constant
sub setGroups {
    my $self = shift;
    return $self->_choice->try( 'setGroups', 1 );
}

## @apmethod int userDBFinish()
# Does nothing
# @return Lemonldap::NG::Portal constant
sub userDBFinish {
    my $self = shift;
    return $self->_choice->try( 'userDBFinish', 1 );
}

1;