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