File Coverage

blib/lib/URI/_odbc.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition	5	6	83.3
subroutine	3	3	100.0
pod	0	1	0.0
total	19	21	90.4

package URI::_odbc;
use base 'URI::_db';
our $VERSION = '0.21';

sub dbi_driver   { 'ODBC' }

sub _dbi_param_map {
    my $self = shift;
    my $host = $self->host;
    my $port = $self->_port;

    # Just return the DSN if no host or port.
    return [ DSN => scalar $self->dbname ] unless $host || $port;

    return (
        [ Server   => $host                        ],
        [ Port     => $port || $self->default_port ],
        [ Database => scalar $self->dbname         ],
    );
}

1;