Tag old version. Update trunk to new version with additional tests

[catagits/Catalyst-Authentication-Credential-HTTP-Proxy.git] / lib / Catalyst / Authentication / Credential / HTTP / Proxy / User.pm

diff --git a/lib/Catalyst/Authentication/Credential/HTTP/Proxy/User.pm b/lib/Catalyst/Authentication/Credential/HTTP/Proxy/User.pm
new file mode 100644 (file)
index 0000000..8229336
--- /dev/null
+++ b/lib/Catalyst/Authentication/Credential/HTTP/Proxy/User.pm
@@ -0,0 +1,47 @@
+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;
+
+=head1 NAME
+
+Catalyst::Authentication::Credential::HTTP::Proxy::User - Wrapper for LWP::UserAgent
+
+=head1 DESCRIPTION
+
+A thin wrapper for L<LWP::UserAgent> to make basic auth simpler.
+
+=head1 METHODS
+
+=head2 credentials
+
+now takes just a username and password
+
+=head2 get_basic_credentials
+
+Returns the set credentials, takes no options.
+
+=head1 AUTHOR
+
+Marcus Ramberg <mramberg@cpan.org>
+
+=head1 LICENSE
+
+This software is licensed under the same terms as perl itself.
+
+=cut
+