1 package Catalyst::Authentication::Credential::HTTP::Proxy::User;
6 use base 'LWP::UserAgent';
9 my ($self,$user,$pass)=@_;
10 @{$self->{credentials}}=($user,$pass);
13 sub get_basic_credentials {
15 return @{$self->{credentials}};
22 Catalyst::Authentication::Credential::HTTP::Proxy::User - Wrapper for LWP::UserAgent
26 A thin wrapper for L<LWP::UserAgent> to make basic auth simpler.
32 now takes just a username and password
34 =head2 get_basic_credentials
36 Returns the set credentials, takes no options.
40 Marcus Ramberg <mramberg@cpan.org>
44 This software is licensed under the same terms as perl itself.