Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/URI/exasol.pm

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

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;