view release on metacpan or  search on metacpan

lib/App/LDAP/LDIF.pm  view on Meta::CPAN

    my $search = ldap()->search(%options);

    if ($search->count) {
        return $class->new( $search->entry(0) );
    } else {
        return undef;
    }
}

sub update {

}

sub delete {
    my ($self) = shift;

    my $msg = ldap()->delete($self->dn);

    die $msg->error if $msg->code;
}