--- /dev/null
+# auto-generated shipit config file.
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+
+svk.tagpattern = //mirror/Catalyst-Authentication-Credential-HTTP-Proxy/1.000/tags/%v
+
+# svn.tagpattern = MyProj-%v
+# svn.tagpattern = http://code.example.com/svn/tags/MyProj-%v
+
+CheckChangeLog.files = Changes
+0.05 2009-01-04
+ - Start releasing using ShipIt
+ - Remove use of _config accessor, which I'd stupidly cargo-culted.
+ - Fix MANIFEST
+ - Add pod spelling test
+
0.04 2008-09-25
- Change namespace to remove ::Plugin:: for new auth framework.
- Gutted most of the code in the module by subclassing
inc/Module/Install/WriteAll.pm
lib/Catalyst/Authentication/Credential/HTTP/Proxy.pm
lib/Catalyst/Authentication/Credential/HTTP/Proxy/User.pm
+lib/Catalyst/Authentication/Credential/HTTP/User.pm
Makefile.PL
MANIFEST This list of files
META.yml
t/mock.t
t/pod.t
t/pod_coverage.t
+t/pod_spelling.t
t/use.t
requires 'Catalyst::Runtime';
requires 'Catalyst::Plugin::Authentication';
-requires 'Catalyst::Authentication::Credential::HTTP' => '1.005';
+requires 'Catalyst::Authentication::Credential::HTTP' => '1.009';
requires 'LWP::Simple';
build_requires 'Test::MockObject';
build_requires 'Test::Exception';
use URI::Escape ();
use Catalyst::Authentication::Credential::HTTP::Proxy::User;
-our $VERSION = "0.04";
+our $VERSION = "0.05";
+
+__PACKAGE__->mk_accessors(qw/
+ url
+/);
sub init {
my ($self) = @_;
- my $type = $self->_config->{'type'} ||= 'basic';
+ my $type = $self->type || 'basic';
if (!$self->_config->{url}) {
Catalyst::Exception->throw(__PACKAGE__ . " configuration does not include a 'url' key, cannot proceed");
if (!grep /^$type$/, ('basic')) {
Catalyst::Exception->throw(__PACKAGE__ . " used with unsupported authentication type: " . $type);
}
+ $self->type($type);
}
sub authenticate_basic {
if ( my ( $user, $password ) = $headers->authorization_basic ) {
my $ua = Catalyst::Authentication::Credential::HTTP::Proxy::User->new;
$ua->credentials($user, $password);
- my $resp = $ua->get($self->_config->{url});
+ my $resp = $ua->get($self->url);
if ( $resp->is_success ) {
# Config username_field TODO
my $user_obj = $realm->find_user( { username => $user }, $c);
}
}
+1;
+
__END__
=pod
=head1 DESCRIPTION
-This moduule lets you use HTTP Proxy authentication with
+This module lets you use HTTP Proxy authentication with
L<Catalyst::Plugin::Authentication>.
Currently this module only supports the Basic scheme, but upon request Digest
--- /dev/null
+use strict;
+use warnings;
+use Test::More;
+
+eval 'use Test::Spelling 0.11';
+plan skip_all => 'Test::Spelling 0.11 not installed' if $@;
+plan skip_all => 'set TEST_SPELLING to enable this test' unless $ENV{TEST_SPELLING};
+
+set_spell_cmd('aspell list');
+
+add_stopwords(<DATA>);
+
+all_pod_files_spelling_ok();
+
+__DATA__
+Initializes
+Doran
+Ramberg
+Catlayst
+url
+username
+auth
+authorization
+init
+