view release on metacpan or  search on metacpan

lib/Footprintless/Plugin/Ldap/Ldap.pm  view on Meta::CPAN

    }
    return $dn;
}

sub bind {
    my ( $self, $dn, %options ) = @_;
    croak('not connected') unless ( $self->{connection} );

    if ( !$dn ) {

        # binding with instance credentials
        $dn      = $self->{bind_dn};
        %options = %{ $self->{bind_options} };
    }

    if ($dn) {
        my $result = $self->{connection}->bind( $dn, %options );
        $result->code() && croak( "unable to authenticate to $self:\n\t" . $result->error() );
    }
    else {
        my $result = $self->{connection}->bind();