package LDAPclient;
use Moose;

my @ldap_attrs = qw(
                      ssl
                      host
                      port
                      retry
                      timeout
                      version
                      loginID
                      loginPW
                      logging
);

for my $name (@ldap_attrs) {
    my $reader = 'get_' . $name;
    my $writer = 'set_' . $name;
    has $name => (
                  is       => 'rw',
                  reader   => $reader,
                  writer   => $writer,
                  required => 0
                 );
  }