Resolved collision of method names

bobtfish · Jan 27, 2010 · ed5f4d9 · ed5f4d9
1 parent 9466762
commit ed5f4d9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Catalyst/Authentication/Credential/RemoteHTTP.pm b/lib/Catalyst/Authentication/Credential/RemoteHTTP.pm
@@ -71,7 +71,7 @@ sub authenticate {
             $authinfo->{ $config->{username_field} },
             $config->{user_suffix} );
         my $password = $authinfo->{ $config->{'password_field'} };
-        $ua->credentials( $auth_user, $password );
+        $ua->set_credentials( $auth_user, $password );
 
         # do the request
         my $res = $ua->head( $config->{url} );

diff --git a/lib/Catalyst/Authentication/Credential/RemoteHTTP/UserAgent.pm b/lib/Catalyst/Authentication/Credential/RemoteHTTP/UserAgent.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use base qw/LWP::UserAgent/;
 
-sub credentials {
+sub set_credentials {
     my ($self, $user, $pass) = @_;
     @{ $self->{credentials} } = ($user, $pass);
 }
@@ -23,7 +23,7 @@ A thin wrapper for L<LWP::UserAgent> to make basic auth simpler.
 
 =head1 METHODS
 
-=head2 credentials
+=head2 set_credentials
 
 now takes just a username and password