File Coverage

blib/lib/URI/teradata.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition 2 3 66.6
subroutine 5 5 100.0
pod 1 3 33.3
total 17 20 85.0


line stmt bran cond sub pod time code
1             package URI::teradata;
2 2     2   2576 use base 'URI::_db';
  2         4  
  2         461  
3             our $VERSION = '0.20';
4              
5 18     18 1 7576 sub default_port { 1025 }
6 2     2 0 8 sub dbi_driver { 'Teradata' }
7              
8             sub _dbi_param_map {
9 6     6   29 return [ DATABASE => scalar shift->dbname ];
10             }
11              
12             sub dbi_dsn {
13 2     2 0 912 my $self = shift;
14             return join ';' => (
15             join (
16             ':' => 'dbi', $self->dbi_driver,
17 2   66     5 grep { defined } $self->host, $self->_port
  3         95  
18             ),
19             $self->_dsn_params || ()
20             );
21             }
22              
23             1;