PATH:
usr
/
share
/
perl5
/
URI
package URI::_userpass; use strict; use URI::Escape qw(uri_unescape); sub user { my $self = shift; my $info = $self->userinfo; if (@_) { my $new = shift; my $pass = defined($info) ? $info : ""; $pass =~ s/^[^:]*//; if (!defined($new) && !length($pass)) { $self->userinfo(undef); } else { $new = "" unless defined($new); $new =~ s/%/%25/g; $new =~ s/:/%3A/g; $self->userinfo("$new$pass"); } } return unless defined $info; $info =~ s/:.*//; uri_unescape($info); } sub password { my $self = shift; my $info = $self->userinfo; if (@_) { my $new = shift; my $user = defined($info) ? $info : ""; $user =~ s/:.*//; if (!defined($new) && !length($user)) { $self->userinfo(undef); } else { $new = "" unless defined($new); $new =~ s/%/%25/g; $self->userinfo("$user:$new"); } } return unless defined $info; return unless $info =~ s/^[^:]*://; uri_unescape($info); } 1;
[-] telnet.pm
[edit]
[-] ldapi.pm
[edit]
[-] _idna.pm
[edit]
[-] data.pm
[edit]
[-] _punycode.pm
[edit]
[-] Heuristic.pm
[edit]
[-] http.pm
[edit]
[-] ldaps.pm
[edit]
[-] rtspu.pm
[edit]
[+]
..
[-] tn3270.pm
[edit]
[-] _foreign.pm
[edit]
[-] sips.pm
[edit]
[-] https.pm
[edit]
[-] URL.pm
[edit]
[-] urn.pm
[edit]
[-] _generic.pm
[edit]
[-] Split.pm
[edit]
[-] nntp.pm
[edit]
[-] news.pm
[edit]
[-] _segment.pm
[edit]
[-] snews.pm
[edit]
[-] _userpass.pm
[edit]
[-] mms.pm
[edit]
[-] WithBase.pm
[edit]
[-] sip.pm
[edit]
[-] rsync.pm
[edit]
[-] ldap.pm
[edit]
[-] _query.pm
[edit]
[-] file.pm
[edit]
[-] rlogin.pm
[edit]
[-] Escape.pm
[edit]
[+]
urn
[-] _server.pm
[edit]
[-] ftp.pm
[edit]
[-] gopher.pm
[edit]
[-] ssh.pm
[edit]
[+]
file
[-] _login.pm
[edit]
[-] QueryParam.pm
[edit]
[-] IRI.pm
[edit]
[-] mailto.pm
[edit]
[-] rtsp.pm
[edit]
[-] pop.pm
[edit]
[-] _ldap.pm
[edit]