File Coverage

blib/lib/URI/db2.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 2 50.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package URI::db2;
2 2     2   3371 use base 'URI::_db';
  2         6  
  2         483  
3             our $VERSION = '0.21';
4              
5 18     18 1 9195 sub default_port { 50000 }
6 1     1 0 4 sub dbi_driver { 'DB2' }
7              
8             sub _dbi_param_map {
9 3     3   13 my $self = shift;
10             return (
11 3         12 [ HOSTNAME => scalar $self->host ],
12             [ PORT => scalar $self->_port ],
13             [ DATABASE => scalar $self->dbname ],
14             );
15             }
16              
17             1;