view release on metacpan or  search on metacpan

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

package App::LDAP::LDIF;

use Modern::Perl;

use Net::LDAP::Entry;

use Moose;

with qw(
    App::LDAP::Role
    App::LDAP::Role::FromEntry
);

has dn => (
    is       => "rw",
    isa      => "Str",
    required => 1,
);

sub create {

}

sub search {
    my ($class, %options) = @_;

    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;
}

sub save {
    # not yet be able to modify()
    my ($self) = shift;

    my $msg = ldap()->add($self->entry);

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

sub entry {
    my ($self) = shift;

    my $entry = Net::LDAP::Entry->new( $self->dn );

    $entry->add($_ => $self->$_)
      for grep {
          $self->$_
      } grep {
          !/dn/
      } map {
          $_->name
      } $self->meta->get_all_attributes;

    $entry;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;

=head1 NAME

App::LDAP::LDIF - base class of models in App::LDAP

=head1 SYNOPSIS

    package App::LDAP::LDIF::Animal

    use Moose;
    with 'App::LDAP::LDIF';

    use Net::LDAP::Entry;

    has name => (
        is  => "rw",
        isa => "Str",
    );