| Catalyst-Authentication-Credential-HTTP-Proxy documentation | Contained in the Catalyst-Authentication-Credential-HTTP-Proxy distribution. |
Catalyst::Authentication::Credential::HTTP::Proxy::User - Wrapper for LWP::UserAgent
A thin wrapper for LWP::UserAgent to make basic auth simpler.
now takes just a username and password
Returns the set credentials, takes no options.
Marcus Ramberg <mramberg@cpan.org>
This software is licensed under the same terms as perl itself.
| Catalyst-Authentication-Credential-HTTP-Proxy documentation | Contained in the Catalyst-Authentication-Credential-HTTP-Proxy distribution. |
package Catalyst::Authentication::Credential::HTTP::Proxy::User; use strict; use warnings; use base 'LWP::UserAgent'; sub credentials { my ($self,$user,$pass)=@_; @{$self->{credentials}}=($user,$pass); } sub get_basic_credentials { my $self = shift; return @{$self->{credentials}}; } 1;