File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/URI/_db.pm
Back
package URI::_db; use strict; use 5.008001; use base 'URI::_login'; our $VERSION = '0.23'; sub uri { shift } sub _no_scheme_ok { 0 } sub canonical_engine { shift->scheme } sub canonical { my $canon = shift->SUPER::canonical; my $engine = $canon->canonical_engine; return $canon if $canon->scheme eq $engine; $canon = $canon->clone; $canon->scheme($engine); return $canon; } sub engine { my $self = shift; return $self->scheme unless @_; my $old = $self->scheme(@_); bless $self => 'URI::_db' unless $self->isa('URI::_db'); return $old; } sub has_recognized_engine { ref $_[0] ne __PACKAGE__; } sub dbname { my $self = shift; my $is_full = $self->opaque =~ m{^//(?://|/?(?!/))}; return $self->path($is_full && defined $_[0] ? "/$_[0]" : shift) if @_; my @segs = $self->path_segments or return; shift @segs if $is_full; join '/' => @segs; } sub query_params { my $self = shift; require URI::QueryParam; return map { my $f = $_; map { $f => $_ } grep { defined } $self->query_param($f) } $self->query_param; } sub _dbi_param_map { my $self = shift; return ( [ host => scalar $self->host ], [ port => scalar $self->_port ], [ dbname => scalar $self->dbname ], ); } sub dbi_params { my $self = shift; return ( ( map { @{ $_ } } grep { defined $_->[1] && length $_->[1] } $self->_dbi_param_map ), $self->query_params, ); } sub dbi_driver { return undef } sub _dsn_params { my $self = shift; my @params = $self->dbi_params; my @kvpairs; while (@params) { push @kvpairs => join '=', shift @params, shift @params; } return join ';' => @kvpairs; } sub dbi_dsn { my $self = shift; my $driver = $self->dbi_driver or return $self->_dsn_params; return join ':' => 'dbi', $driver, $self->_dsn_params; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings