File Coverage

blib/lib/URI/maxdb.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 4 25.0
total 16 19 84.2


line stmt bran cond sub pod time code
1             package URI::maxdb;
2 2     2   3387 use base 'URI::_db';
  2         5  
  2         536  
3             our $VERSION = '0.21';
4              
5 36     36 1 18354 sub default_port { 7673 }
6 2     2 0 18 sub dbi_driver { 'MaxDB' }
7 40     40 0 19730 sub canonical_engine { 'maxdb' }
8              
9       4     sub _dbi_param_map { }
10              
11             sub dbi_dsn {
12 2     2 0 1035 my $self = shift;
13             return join (
14             ':' => 'dbi', $self->dbi_driver,
15 2         24 grep { defined } $self->host, $self->_port,
  3         114  
16             ) . $self->path_query;
17             }
18              
19             1;