12345678910111213141516 package URI::informix;use base 'URI::_db';our $VERSION = '0.23';sub default_port { 1526 }sub dbi_driver { 'Informix' }sub _dbi_param_map { }sub dbi_dsn { my $self = shift; return join ':' => 'dbi', $self->dbi_driver, join ';' => $self->dbname, ($self->_dsn_params || ());}1;
package
URI::informix;
use
base
'URI::_db'
;
our
$VERSION
=
'0.23'
sub
default_port { 1526 }
dbi_driver {
'Informix'
}
_dbi_param_map { }
dbi_dsn {
my
$self
shift
return
join
':'
=>
'dbi'
,
->dbi_driver,
';'
->dbname, (
->_dsn_params || ());
1;