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

package URI::cubrid;
use base 'URI::_db';
our $VERSION = '0.20';

sub default_port { 33000 }
sub dbi_driver   { 'cubrid' }

sub _dbi_param_map {
    my $self = shift;
    return (
        [ host     => scalar $self->host   ],
        [ port     => scalar $self->_port  ],
        [ database => scalar $self->dbname ],
    );
}

1;