File Coverage

blib/lib/URI/exasol.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	3	3	100.0
pod	1	1	100.0
total	19	21	90.4

package URI::exasol;
use base 'URI::_odbc';
our $VERSION = '0.19';

sub default_port { 8563 }

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 (
        [ EXAHOST   => $host                        ],
        [ EXAPORT   => $port || $self->default_port ],
    );
}

1;