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

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

diff --git a/lib/Catalyst/Authentication/Credential/HTTP/User.pm b/lib/Catalyst/Authentication/Credential/HTTP/User.pm
new file mode 100644 (file)
index 0000000..88854ec
--- /dev/null
+++ b/lib/Catalyst/Authentication/Credential/HTTP/User.pm
@@ -0,0 +1,47 @@
+package Catalyst::Plugin::Authentication::Credential::HTTP::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::Plugin::Authentication::Credential::HTTP::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.i
+
+=cut
+