1 # local test ldap server
5 use Net::LDAP::Server::Test;
8 sub server_port {10636}
9 sub server_host { 'ldap://127.0.0.1:' . server_port() }
13 my $entry = Net::LDAP::Entry->new;
14 $entry->dn('ou=foobar');
18 displayName => 'Some Body',
19 cn => [qw(value1 value2)]
23 return Net::LDAP::Server::Test->new( server_port(), data => \@mydata );