|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /usr/share/perl5/URI/ |
Upload File : |
package URI::_userpass;
use strict;
use warnings;
use URI::Escape qw(uri_unescape);
our $VERSION = '1.71';
$VERSION = eval $VERSION;
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 undef 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 undef unless defined $info;
return undef unless $info =~ s/^[^:]*://;
uri_unescape($info);
}
1;