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

package Catalyst::Plugin::Authentication::Credential::HTTP::User;

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.
Commit	Line	Data
1e64d768	1	package Catalyst::Plugin::Authentication::Credential::HTTP::User;
	2
	3	use base 'LWP::UserAgent';
	4
	5	sub credentials {
	6	my ($self,$user,$pass)=@_;
	7	@{$self->{credentials}}=($user,$pass);
	8	}
	9	sub get_basic_credentials {
	10	my $self = shift;
	11	return @{$self->{credentials}};
	12	}
	13
	14	1;
	15
	16	=head1 NAME
	17
	18	Catalyst::Plugin::Authentication::Credential::HTTP::User - Wrapper for LWP::UserAgent
	19
	20	=head1 DESCRIPTION
	21
	22	A thin wrapper for L<LWP::UserAgent> to make basic auth simpler.
	23
	24	=head1 METHODS
	25
	26	=head2 credentials
	27
	28	now takes just a username and password
	29
	30	=head2 get_basic_credentials
	31
	32	Returns the set credentials, takes no options.
	33
	34	=head1 AUTHOR
	35
	36	Marcus Ramberg <mramberg@cpan.org
	37
	38	=head1 LICENSE
	39
	40	This software is licensed under the same terms as perl itself.