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;