+++ /dev/null
-use strict;
-use Module::Build;
-
-my $build = Module::Build->new(
- create_makefile_pl => 'traditional',
- license => 'perl',
- module_name => 'Catalyst::Plugin::Authentication::Credential::HTTP::Proxy',
- requires => {
- 'Catalyst' => '5.5',
- 'Catalyst::Plugin::Authentication' => 0,
- 'Test::MockObject' => '1.01',
- 'LWP::Simple' => 0,
- },
- create_readme => 1,
- sign => 1,
-);
-$build->create_build_script;
-
-0.03 2006-01-01 13:35:00
+0.02 2007-04-26
+ - switch to Module::Install
+
+0.01 2006-04-18 13:35:00
- $store->get_user now gets the user name as the first arg for maximum
compatibility with stores.
- Doc fixes
--- /dev/null
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+
+# Avoid Makemaker generated and utility files.
+\bMakefile$
+\bblib
+\bMakeMaker-\d
+\bpm_to_blib$
+\bblibdirs$
+^MANIFEST\.SKIP$
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build
+
+# Avoid temp and backup files.
+~$
+\.tmp$
+\.old$
+\.bak$
+\#$
+\b\.#
+\.DS_Store$
+
+# No tarballs!
+\.gz$
--- /dev/null
+use inc::Module::Install 0.65;
+
+name 'Catalyst-Plugin-Authentication-Credential-HTTP-Proxy';
+all_from 'lib/Catalyst/Plugin/Authentication/Credential/HTTP/Proxy.pm';
+
+requires 'Catalyst::Runtime';
+requires 'Catalyst::Plugin::Authentication';
+requires 'Test::MockObject';
+requires 'LWP::Simple';
+
+auto_install;
+WriteAll;
+
use Catalyst::Plugin::Authentication::Credential::HTTP::User;
use Carp qw/croak/;
-our $VERSION = "0.01";
-
+our $VERSION = "0.02";
sub authenticate_http_proxy {
my $c = shift;
=head1 NAME
-Catalyst::Plugin::Authentication::Credential::HTTP - HTTP Basic authentication
+Catalyst::Plugin::Authentication::Credential::HTTP::Proxy - HTTP Proxy authentication
for Catlayst.
=head1 SYNOPSIS
To specify what store to use. will use the default store if not set.
-=cut
+=back
=head1 METHODS
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}};
=head1 LICENSE
-This software is licensed under the same terms as perl itself.
+This software is licensed under the same terms as perl itself.i
+
+=cut
+