File Coverage

blib/lib/App/LDAP/Command/Import.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package App::LDAP::Command::Import;

use Modern::Perl;

use Moose;

with qw( App::LDAP::Role::Command
         App::LDAP::Role::Bindable );

use Net::LDAP::LDIF;

sub run {
    my ($self) = shift;

    shift @ARGV;
    process($_) for @ARGV;
}

sub process {
    my ($file) = @_;

    if (-f $file) {

        say "import $file...";

        my $ldif = Net::LDAP::LDIF->new($file, "r", onerror => 'die');

        while (!$ldif->eof) {
            my $entry = $ldif->read_entry;
            my $msg = ldap()->add($entry);
            warn $msg->error() if $msg->code;
        }

    } else {
        say "$_ don\'t exist. skip.";
        return;
    }

}

1;

=pod

=head1 NAME

App::LDAP::Command::Import

=head1 SYNOPSIS

    $ ldap import people.ldif

=cut