File Coverage

blib/lib/URI/ldapdb.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package URI::ldapdb;
2 2     2   3127 use base 'URI::_db';
  2         5  
  2         471  
3             our $VERSION = '0.21';
4              
5 3     3 0 9 sub dbi_driver { 'LDAP' }
6              
7             sub _dbi_param_map {
8 6     6   34 my $self = shift;
9             return (
10 6         20 [ dbname => scalar $self->dbname ],
11             );
12             }
13              
14             sub dbi_dsn {
15 3     3 0 1665 my $self = shift;
16 3         8 return join ':' => 'dbi', $self->dbi_driver, $self->dbname
17             }
18              
19             1;
20              
21             =head1 Name
22              
23             URI::ldapdb - LDAP database URI
24              
25             =head1 Description
26              
27             Linkage between URI::db and DBD::LDAP. I would have used L, but
28             that was already taken for a module with slightly different intentions.
29              
30             =head1 Contributed By
31              
32             Brian T. Wightman
33              
34             =cut