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   2503 use base 'URI::_db';
  2         4  
  2         422  
3             our $VERSION = '0.20';
4              
5 36     36 1 15086 sub default_port { 7673 }
6 2     2 0 16 sub dbi_driver { 'MaxDB' }
7 40     40 0 16436 sub canonical_engine { 'maxdb' }
8              
9       4     sub _dbi_param_map { }
10              
11             sub dbi_dsn {
12 2     2 0 842 my $self = shift;
13             return join (
14             ':' => 'dbi', $self->dbi_driver,
15 2         22 grep { defined } $self->host, $self->_port,
  3         97  
16             ) . $self->path_query;
17             }
18              
19             1;