has ldap => (is => 'ro', default => sub {
    my $self = shift;
    return Net::LDAP->new($self->host);
});