File Coverage

blib/lib/URI/oracle.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	6	100.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	1	2	50.0
total	30	32	93.7

package URI::oracle;
use base 'URI::_db';
our $VERSION = '0.23';

sub default_port { 1521 }
sub dbi_driver   { 'Oracle' }

sub _dsn_params {
    my $self = shift;
    my $name = $self->dbname || '';
    my $dsn = $self->host;

    if (my $p = $self->_port) {
        $dsn .= ":$p";
    }

    return $name unless $dsn;
    $dsn .= "/$name";


    if (my @p = $self->query_params) {
        my @kvpairs;
        while (@p) {
            push @kvpairs => join '=', shift @p, shift @p;
        }
        $dsn .= '?' . join '&' => @kvpairs;
    }

    return "//$dsn";
}

1;