diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/URI/_userpass.pm | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/URI/_userpass.pm')
| -rw-r--r-- | lib/URI/_userpass.pm | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/lib/URI/_userpass.pm b/lib/URI/_userpass.pm deleted file mode 100644 index a0361ae..0000000 --- a/lib/URI/_userpass.pm +++ /dev/null @@ -1,51 +0,0 @@ -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; |
