/
LDAP.pm
68 lines (43 loc) · 1.01 KB
/
LDAP.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
package App::LDAP;
our $VERSION = '0.1.1';
use Modern::Perl;
use Moose;
use MooseX::Singleton;
use App::LDAP::Command;
with 'App::LDAP::Role';
sub run {
my ($self,) = @_;
App::LDAP::Config->read;
App::LDAP::Secret->read;
App::LDAP::Connection->new(
config()->{uri},
port => config()->{port},
version => config()->{ldap_version},
onerror => 'die',
);
App::LDAP::Command
->dispatch(@ARGV)
->new_with_options
->prepare()
->run();
}
__PACKAGE__->meta->make_immutable;
no Moose;
1;
__END__
=head1 NAME
App::LDAP - CLI tool providing common manipulation on LDAP servers
=head1 SYNOPSIS
use App::LDAP;
App::LDAP->new->run;
=head1 DESCRIPTION
App::LDAP is intent on providing client-side solution of
L<RFC 2307|http://www.ietf.org/rfc/rfc2307.txt>,
L<RFC 2798|http://www.ietf.org/rfc/rfc2798.txt>.
=head1 AUTHOR
shelling E<lt>navyblueshellingford@gmail.comE<gt>
=head1 SEE ALSO
=head1 LICENSE
Copyright (C) shelling
The MIT License
=cut