summaryrefslogtreecommitdiff
path: root/lib/URI/_userpass.pm
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
committerAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
commit3282be229999dc36c197b264d63063a18d136331 (patch)
tree98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/URI/_userpass.pm
parentcfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff)
downloadxxv-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.pm51
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;