[Catalyst-commits] r8074 - in
Catalyst-Authentication-Credential-OpenID: . 0.05
0.05/lib/Catalyst/Authentication/Credential 0.05/t
0.05/t/TestApp/lib
apv at dev.catalyst.perl.org
apv at dev.catalyst.perl.org
Thu Jul 3 04:42:06 BST 2008
Author: apv
Date: 2008-07-03 04:42:05 +0100 (Thu, 03 Jul 2008)
New Revision: 8074
Added:
Catalyst-Authentication-Credential-OpenID/0.05/
Modified:
Catalyst-Authentication-Credential-OpenID/0.05/Changes
Catalyst-Authentication-Credential-OpenID/0.05/Makefile.PL
Catalyst-Authentication-Credential-OpenID/0.05/lib/Catalyst/Authentication/Credential/OpenID.pm
Catalyst-Authentication-Credential-OpenID/0.05/t/TestApp/lib/TestApp.pm
Catalyst-Authentication-Credential-OpenID/0.05/t/live_app.t
Log:
This is 0.05.
Copied: Catalyst-Authentication-Credential-OpenID/0.05 (from rev 7935, Catalyst-Authentication-Credential-OpenID/0.04)
Modified: Catalyst-Authentication-Credential-OpenID/0.05/Changes
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.04/Changes 2008-06-20 16:12:48 UTC (rev 7935)
+++ Catalyst-Authentication-Credential-OpenID/0.05/Changes 2008-07-03 03:42:05 UTC (rev 8074)
@@ -1,5 +1,12 @@
Revision history for Catalyst::Authentication::Credential::OpenID
+0.05 Wed Jul 2 20:17:21 PDT 2008
+ - Removed UNIVERSAL::require to shrink prereqs and protect
+ namespaces.
+ - Turned on test app tests. I want to know if it's failing for
+ others.
+ - Swapped LWPx::ParanoidAgent for LWP::UA in the test.
+
0.04 Thu Jun 19 23:20:00 PDT 2008
- Fixed some of the .conf example. Sigh.
- Other minor Pod tweaks.
Modified: Catalyst-Authentication-Credential-OpenID/0.05/Makefile.PL
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.04/Makefile.PL 2008-06-20 16:12:48 UTC (rev 7935)
+++ Catalyst-Authentication-Credential-OpenID/0.05/Makefile.PL 2008-07-03 03:42:05 UTC (rev 8074)
@@ -2,6 +2,7 @@
name "Catalyst-Authentication-Credential-OpenID";
all_from "lib/Catalyst/Authentication/Credential/OpenID.pm";
+author "Ashley Pond V <ashley at cpan.org>";
requires "parent" => "0.2";
requires "Class::Accessor::Fast" => 0;
@@ -9,7 +10,6 @@
requires "Crypt::DH" => "0.05"; # IIRC OpenID stuff forgets to prereq this
requires "Net::OpenID::Consumer" => "0.14";
requires "Catalyst::Exception" => 0;
-requires "UNIVERSAL::require" => 0;
requires "Catalyst::Authentication::User::Hash" => 0;
recommends "Config::General" => "2";
Modified: Catalyst-Authentication-Credential-OpenID/0.05/lib/Catalyst/Authentication/Credential/OpenID.pm
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.04/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-06-20 16:12:48 UTC (rev 7935)
+++ Catalyst-Authentication-Credential-OpenID/0.05/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-07-03 03:42:05 UTC (rev 8074)
@@ -8,10 +8,9 @@
__PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
}
-our $VERSION = "0.04";
+our $VERSION = "0.05";
use Net::OpenID::Consumer;
-use UNIVERSAL::require;
use Catalyst::Exception ();
sub new : method {
@@ -37,11 +36,10 @@
$self->secret( $secret );
$self->_config->{ua_class} ||= "LWPx::ParanoidAgent";
- eval {
- $self->_config->{ua_class}->require;
- }
- or Catalyst::Exception->throw("Could not 'require' user agent class " .
- $self->_config->{ua_class});
+ my $agent_class = $self->_config->{ua_class};
+ eval "require $agent_class"
+ or Catalyst::Exception->throw("Could not 'require' user agent class " .
+ $self->_config->{ua_class});
$c->log->debug("Setting consumer secret: " . $secret) if $self->debug;
@@ -126,15 +124,15 @@
=head1 NAME
-Catalyst::Authentication::Credential::OpenID - OpenID credential for L<Catalyst::Plugin::Authentication> framework.
+Catalyst::Authentication::Credential::OpenID - OpenID credential for Catalyst::Plugin::Authentication framework.
=head1 VERSION
-0.04
+0.05
=head1 SYNOPSIS
-In MyApp.pm.
+In MyApp.pm-
use Catalyst qw/
Authentication
@@ -143,7 +141,7 @@
Session::State::Cookie
/;
-Somewhere in myapp.conf.
+Somewhere in myapp.conf-
<Plugin::Authentication>
default_realm openid
@@ -157,7 +155,7 @@
</realms>
</Plugin::Authentication>
-Or in your myapp.yml if you're using L<YAML> instead.
+Or in your myapp.yml if you're using L<YAML> instead-
Plugin::Authentication:
default_realm: openid
@@ -167,7 +165,7 @@
class: OpenID
ua_class: LWPx::ParanoidAgent
-In a controller, perhaps C<Root::openid>.
+In a controller, perhaps C<Root::openid>-
sub openid : Local {
my($self, $c) = @_;
@@ -183,7 +181,7 @@
}
}
-And a L<Template> to match in C<openid.tt>.
+And a L<Template> to match in C<openid.tt>-
<form action="[% c.uri_for('/openid') %]" method="GET" name="openid">
<input type="text" name="openid_identifier" class="openid" />
Modified: Catalyst-Authentication-Credential-OpenID/0.05/t/TestApp/lib/TestApp.pm
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.04/t/TestApp/lib/TestApp.pm 2008-06-20 16:12:48 UTC (rev 7935)
+++ Catalyst-Authentication-Credential-OpenID/0.05/t/TestApp/lib/TestApp.pm 2008-07-03 03:42:05 UTC (rev 8074)
@@ -38,8 +38,8 @@
}
},
openid => {
- ua_class => "LWPx::ParanoidAgent",
-# ua_class => "LWP::UserAgent",
+# ua_class => "LWPx::ParanoidAgent",
+ ua_class => "LWP::UserAgent",
ua_args => {
whitelisted_hosts => [qw/ 127.0.0.1 localhost /],
},
Modified: Catalyst-Authentication-Credential-OpenID/0.05/t/live_app.t
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.04/t/live_app.t 2008-06-20 16:12:48 UTC (rev 7935)
+++ Catalyst-Authentication-Credential-OpenID/0.05/t/live_app.t 2008-07-03 03:42:05 UTC (rev 8074)
@@ -8,16 +8,12 @@
use Test::More;
use Test::WWW::Mechanize;
-
-plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
+# plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
eval "use Catalyst::Devel 1.0";
plan skip_all => 'Catalyst::Devel required' if $@;
-# plan "no_plan";
plan tests => 17;
-# TEST FORK?
-
# How long to wait for test server to start and timeout for UA.
my $seconds = 30;
@@ -28,7 +24,6 @@
# my $pipe = "perl -I$FindBin::Bin/../lib -I$FindBin::Bin/TestApp/lib $FindBin::Bin/TestApp/script/testapp_server.pl -f -port $port 2>&1 |";
-
my $pid = open my $server, $pipe
or die "Unable to spawn standalone HTTP server: $!";
More information about the Catalyst-commits
mailing list