File Coverage

blib/lib/URI/ldap.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             # Copyright (c) 1998 Graham Barr . All rights reserved.
2             # This program is free software; you can redistribute it and/or
3             # modify it under the same terms as Perl itself.
4              
5             package URI::ldap;
6              
7 1     1   7 use strict;
  1         2  
  1         41  
8 1     1   5 use warnings;
  1         2  
  1         41  
9              
10             our $VERSION = '5.21';
11              
12 1     1   402 use parent qw(URI::_ldap URI::_server);
  1         283  
  1         6  
13              
14 2     2 1 8 sub default_port { 389 }
15              
16             sub _nonldap_canonical {
17 2     2   3 my $self = shift;
18 2         6 $self->URI::_server::canonical(@_);
19             }
20              
21             1;
22              
23             __END__