[Catalyst-commits] r8688 - in
Catalyst-Authentication-Credential-OpenID: .
0.12/lib/Catalyst/Authentication/Credential 0.13
0.13/lib/Catalyst/Authentication/Credential
apv at dev.catalyst.perl.org
apv at dev.catalyst.perl.org
Tue Dec 2 03:46:21 GMT 2008
Author: apv
Date: 2008-12-02 03:46:21 +0000 (Tue, 02 Dec 2008)
New Revision: 8688
Added:
Catalyst-Authentication-Credential-OpenID/0.13/
Catalyst-Authentication-Credential-OpenID/0.13/Changes
Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST
Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL
Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm
Removed:
Catalyst-Authentication-Credential-OpenID/0.13/Changes
Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST
Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL
Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm
Modified:
Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm
Log:
A couple of small dorky fixes (spelling/version) makes this 0.13 on the CPAN.
Modified: Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-12-02 03:35:19 UTC (rev 8687)
+++ Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-12-02 03:46:21 UTC (rev 8688)
@@ -7,7 +7,7 @@
__PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
}
-our $VERSION = "0.12";
+our $VERSION = "0.13";
use Net::OpenID::Consumer;
use Catalyst::Exception ();
@@ -134,7 +134,7 @@
=head1 VERSION
-0.11
+0.13
=head1 SYNOPSIS
@@ -465,7 +465,7 @@
To Benjamin Trott (L<Catalyst::Plugin::Authentication::OpenID>), Tatsuhiko Miyagawa (L<Catalyst::Plugin::Authentication::Credential::OpenID>), Brad Fitzpatrick for the great OpenID stuff, Martin Atkins for picking up the code to handle OpenID 2.0, and Jay Kuri and everyone else who has made Catalyst such a wonderful framework.
-L<Meno Blom|http://search.cpan.org/~blom/> provided a bug fix and the hook to use OpenID extensions.
+L<Menno Blom|http://search.cpan.org/~blom/> provided a bug fix and the hook to use OpenID extensions.
=head1 LICENSE AND COPYRIGHT
Copied: Catalyst-Authentication-Credential-OpenID/0.13 (from rev 8684, Catalyst-Authentication-Credential-OpenID/0.12)
Deleted: Catalyst-Authentication-Credential-OpenID/0.13/Changes
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.12/Changes 2008-12-02 03:27:49 UTC (rev 8684)
+++ Catalyst-Authentication-Credential-OpenID/0.13/Changes 2008-12-02 03:46:21 UTC (rev 8688)
@@ -1,67 +0,0 @@
-Revision history for Catalyst::Authentication::Credential::OpenID
-
-0.12
- - Everything is finally passing tests so I put most of the
- previous versions on the backpan because they're nearly
- identical except for Makefile changes.
- - Applied patches from Menno Blom to allow simple registration
- to work. Considered experimental for now, I think. Not because
- it won't stay but because it might not work as expected.
-
-0.11 Sun Oct 5 00:41:37 PDT 2008
- - Added LWPx paranoid to build_requires.
- - Put some experimental mdash entities into the Pod.
-
-0.10 Thu Oct 2 19:13:42 PDT 2008
- - Just twiddled the requirements calls in the Makefile. I can't
- figure out why testers are failing it for prereqs it *is*
- listing. Someone recently mentioned this same problem on
- use.perl so I'm giving this a shot.
- - Spelling fix in Pod.
- - Updated tests and test server script too.
-
-0.09 Mon Sep 29 18:29:59 PDT 2008
- - Bug patch for boneheaded return v detach bug given by M. Blom.
-
-0.08 Sat Jul 5 13:13:14 PDT 2008
- - Again, only change is to Makefile.PL reqs.
-
-0.07 Thu Jul 3 21:26:12 PDT 2008
- - Only changes are to Makefile for prereqs. The failures on CPAN
- testers are really weird. I think I misunderstood
- build_requires() in ModInst.
-
-0.06 Thu Jul 3 17:20:39 PDT 2008
- - All CPAN reports for 0.05 are failing. Added Catalyst::Devel and
- Catalyst to prereqs. It was just Catalyst::Runtime before.
- - Also changed around Test App storage a bit to avoid permission
- errors on tmp cache file from different user runs.
-
-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.
-
-0.03 Thu Jun 19 20:48:04 PDT 2008
- - Updated config information with Config::General examples.
- - Cleaned up TestApp a little.
- - Swapped some code order around to make Perl::Critic my friend.
- - Extended SEE ALSO.
- - Updated Makefile a bit.
-
-0.02 Tue Apr 8 22:18:22 PDT 2008
- - Changed "use base" to "use parent."
- - Moved SVN to Catalyst dev box.
- - Took out left over toss copy of earlier Credential module.
- - Took out weird closure over secret; not just sets it plainly.
- - Put config stuff in POD a bit differently and added info on consumer_secret.
- - POD tweaks.
-
-0.01 Sat Apr 5 21:35:25 PDT 2008
- - Initial release.
Copied: Catalyst-Authentication-Credential-OpenID/0.13/Changes (from rev 8687, Catalyst-Authentication-Credential-OpenID/0.12/Changes)
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.13/Changes (rev 0)
+++ Catalyst-Authentication-Credential-OpenID/0.13/Changes 2008-12-02 03:46:21 UTC (rev 8688)
@@ -0,0 +1,71 @@
+Revision history for Catalyst::Authentication::Credential::OpenID
+
+0.13 Mon Dec 1 19:42:31 PST 2008
+ - s/Meno/Menno/ and version fix in the Pod are the only changes. Sigh.
+
+0.12 Mon Dec 1 19:28:02 PST 2008
+ - Everything is finally passing tests so I put most of the
+ previous versions on the backpan because they're nearly
+ identical except for Makefile changes.
+ - Applied code from Menno Blom to allow simple registration
+ to work. Considered experimental for now, I think. Not because
+ it won't stay but because it might not work as expected.
+ - Bumped reqs on OpenID family to support 2.0 features.
+
+0.11 Sun Oct 5 00:41:37 PDT 2008
+ - Added LWPx paranoid to build_requires.
+ - Put some experimental mdash entities into the Pod.
+
+0.10 Thu Oct 2 19:13:42 PDT 2008
+ - Just twiddled the requirements calls in the Makefile. I can't
+ figure out why testers are failing it for prereqs it *is*
+ listing. Someone recently mentioned this same problem on
+ use.perl so I'm giving this a shot.
+ - Spelling fix in Pod.
+ - Updated tests and test server script too.
+
+0.09 Mon Sep 29 18:29:59 PDT 2008
+ - Bug patch for boneheaded return v detach bug given by M. Blom.
+
+0.08 Sat Jul 5 13:13:14 PDT 2008
+ - Again, only change is to Makefile.PL reqs.
+
+0.07 Thu Jul 3 21:26:12 PDT 2008
+ - Only changes are to Makefile for prereqs. The failures on CPAN
+ testers are really weird. I think I misunderstood
+ build_requires() in ModInst.
+
+0.06 Thu Jul 3 17:20:39 PDT 2008
+ - All CPAN reports for 0.05 are failing. Added Catalyst::Devel and
+ Catalyst to prereqs. It was just Catalyst::Runtime before.
+ - Also changed around Test App storage a bit to avoid permission
+ errors on tmp cache file from different user runs.
+
+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.
+
+0.03 Thu Jun 19 20:48:04 PDT 2008
+ - Updated config information with Config::General examples.
+ - Cleaned up TestApp a little.
+ - Swapped some code order around to make Perl::Critic my friend.
+ - Extended SEE ALSO.
+ - Updated Makefile a bit.
+
+0.02 Tue Apr 8 22:18:22 PDT 2008
+ - Changed "use base" to "use parent."
+ - Moved SVN to Catalyst dev box.
+ - Took out left over toss copy of earlier Credential module.
+ - Took out weird closure over secret; not just sets it plainly.
+ - Put config stuff in POD a bit differently and added info on consumer_secret.
+ - POD tweaks.
+
+0.01 Sat Apr 5 21:35:25 PDT 2008
+ - Initial release.
Deleted: Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.12/MANIFEST 2008-12-02 03:27:49 UTC (rev 8684)
+++ Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST 2008-12-02 03:46:21 UTC (rev 8688)
@@ -1,25 +0,0 @@
-Changes
-inc/Module/AutoInstall.pm
-inc/Module/Install.pm
-inc/Module/Install/AutoInstall.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-lib/Catalyst/Authentication/Credential/OpenID.pm
-Makefile.PL
-MANIFEST This list of files
-MANIFEST.skip
-META.yml
-README
-t/00.load.t
-t/live_app.t
-t/pod-coverage.t
-t/pod.t
-t/TestApp/lib/TestApp.pm
-t/TestApp/lib/TestApp/Controller/Root.pm
-t/TestApp/script/testapp_server.pl
Copied: Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST (from rev 8686, Catalyst-Authentication-Credential-OpenID/0.12/MANIFEST)
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST (rev 0)
+++ Catalyst-Authentication-Credential-OpenID/0.13/MANIFEST 2008-12-02 03:46:21 UTC (rev 8688)
@@ -0,0 +1,26 @@
+Catalyst-Authentication-Credential-OpenID.patch
+Changes
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/Catalyst/Authentication/Credential/OpenID.pm
+Makefile.PL
+MANIFEST This list of files
+MANIFEST.skip
+META.yml
+README
+t/00.load.t
+t/live_app.t
+t/pod-coverage.t
+t/pod.t
+t/TestApp/lib/TestApp.pm
+t/TestApp/lib/TestApp/Controller/Root.pm
+t/TestApp/script/testapp_server.pl
Deleted: Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.12/Makefile.PL 2008-12-02 03:27:49 UTC (rev 8684)
+++ Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL 2008-12-02 03:46:21 UTC (rev 8688)
@@ -1,36 +0,0 @@
-use inc::Module::Install;
-
-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" => undef;
-requires "HTML::Parser" => "3";
-requires "LWP::UserAgent" => undef;
-requires "Cache::FastMmap" => "1.28";
-requires "Catalyst" => "5.7";
-requires "Catalyst::Devel" => "1";
-requires "Crypt::DH" => "0.05"; # IIRC OpenID stuff forgets to prereq this
-requires "Net::OpenID::Consumer" => "0.14";
-requires "Catalyst::Authentication::User::Hash" => undef;
-requires "Catalyst::Plugin::Session::Store::FastMmap" => "0.05";
-requires "Catalyst::Plugin::Session::State::Cookie" => "0.08";
-requires "Catalyst::Engine::HTTP" => undef;
-
-recommends "Config::General" => "2";
-recommends "YAML" => "0.6";
-recommends "Math::BigInt" => undef;
-recommends "LWPx::ParanoidAgent" => "1.03";
-
-build_requires "LWPx::ParanoidAgent" => "1.03";
-build_requires "Test::More" => "0.42";
-build_requires "Net::OpenID::Server" => undef;
-build_requires "Test::WWW::Mechanize" => "1.20";
-build_requires "Net::DNS" => undef;
-build_requires "IO::Socket::INET" => undef;
-
-auto_install;
-WriteAll;
-
-__END__
Copied: Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL (from rev 8687, Catalyst-Authentication-Credential-OpenID/0.12/Makefile.PL)
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL (rev 0)
+++ Catalyst-Authentication-Credential-OpenID/0.13/Makefile.PL 2008-12-02 03:46:21 UTC (rev 8688)
@@ -0,0 +1,36 @@
+use inc::Module::Install;
+
+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" => undef;
+requires "HTML::Parser" => "3";
+requires "LWP::UserAgent" => undef;
+requires "Cache::FastMmap" => "1.28";
+requires "Catalyst" => "5.7";
+requires "Catalyst::Devel" => "1";
+requires "Crypt::DH" => "0.05"; # IIRC OpenID stuff forgets to prereq this
+requires "Net::OpenID::Consumer" => "1.03";
+requires "Catalyst::Authentication::User::Hash" => undef;
+requires "Catalyst::Plugin::Session::Store::FastMmap" => "0.05";
+requires "Catalyst::Plugin::Session::State::Cookie" => "0.08";
+requires "Catalyst::Engine::HTTP" => undef;
+
+recommends "Config::General" => "2";
+recommends "YAML" => "0.6";
+recommends "Math::BigInt" => undef;
+recommends "LWPx::ParanoidAgent" => "1.03";
+
+build_requires "LWPx::ParanoidAgent" => "1.03";
+build_requires "Test::More" => "0.42";
+build_requires "Net::OpenID::Server" => "1.02";
+build_requires "Test::WWW::Mechanize" => "1.20";
+build_requires "Net::DNS" => undef;
+build_requires "IO::Socket::INET" => undef;
+
+auto_install;
+WriteAll;
+
+__END__
Deleted: Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-12-02 03:27:49 UTC (rev 8684)
+++ Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-12-02 03:46:21 UTC (rev 8688)
@@ -1,521 +0,0 @@
-package Catalyst::Authentication::Credential::OpenID;
-use strict;
-use warnings; no warnings "uninitialized"; # 321
-use parent "Class::Accessor::Fast";
-
-BEGIN {
- __PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
-}
-
-our $VERSION = "0.12";
-
-use Net::OpenID::Consumer;
-use Catalyst::Exception ();
-
-sub new : method {
- my ( $class, $config, $c, $realm ) = @_;
- my $self = { _config => { %{ $config },
- %{ $realm->{config} }
- }
- };
- bless $self, $class;
-
- # 2.0 spec says "SHOULD" be named "openid_identifier."
- $self->_config->{openid_field} ||= "openid_identifier";
-
- $self->debug( $self->_config->{debug} );
-
- my $secret = $self->_config->{consumer_secret} ||= join("+",
- __PACKAGE__,
- $VERSION,
- sort keys %{ $c->config }
- );
-
- $secret = substr($secret,0,255) if length $secret > 255;
- $self->secret($secret);
- $self->_config->{ua_class} ||= "LWPx::ParanoidAgent";
-
- 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;
-
- return $self;
-}
-
-sub authenticate : method {
- my ( $self, $c, $realm, $authinfo ) = @_;
-
- $c->log->debug("authenticate() called from " . $c->request->uri) if $self->debug;
-
- my $field = $self->{_config}->{openid_field};
-
- my $claimed_uri = $authinfo->{ $field };
-
- # Its security related so we want to be explicit about GET/POST param retrieval.
- $claimed_uri ||= $c->req->method eq 'GET' ?
- $c->req->query_params->{ $field } : $c->req->body_params->{ $field };
-
- my $csr = Net::OpenID::Consumer->new(
- ua => $self->_config->{ua_class}->new(%{$self->_config->{ua_args} || {}}),
- args => $c->req->params,
- consumer_secret => $self->secret,
- );
-
- if ( $claimed_uri )
- {
- my $current = $c->uri_for($c->req->uri->path); # clear query/fragment...
-
- my $identity = $csr->claimed_identity($claimed_uri)
- or Catalyst::Exception->throw($csr->err);
-
- $identity->set_extension_args(@{$self->_config->{extension_args}})
- if $self->_config->{extension_args};
-
- my $check_url = $identity->check_url(
- return_to => $current . '?openid-check=1',
- trust_root => $current,
- delayed_return => 1,
- );
- $c->res->redirect($check_url);
- $c->detach();
- }
- elsif ( $c->req->params->{'openid-check'} )
- {
- if ( my $setup_url = $csr->user_setup_url )
- {
- $c->res->redirect($setup_url);
- return;
- }
- elsif ( $csr->user_cancel )
- {
- return;
- }
- elsif ( my $identity = $csr->verified_identity )
- {
- # This is where we ought to build an OpenID user and verify against the spec.
- my $user = +{ map { $_ => scalar $identity->$_ }
- qw( url display rss atom foaf declared_rss declared_atom declared_foaf foafmaker ) };
-
- for(keys %{$self->{_config}->{extensions}}) {
- $user->{extensions}->{$_} = $identity->signed_extension_fields($_);
- }
-
- my $user_obj = $realm->find_user($user, $c);
-
- if ( ref $user_obj )
- {
- return $user_obj;
- }
- else
- {
- $c->log->debug("Verified OpenID identity failed to load with find_user; bad user_class? Try 'Null.'") if $c->debug;
- return;
- }
- }
- else
- {
- Catalyst::Exception->throw("Error validating identity: " .
- $csr->err);
- }
- }
- return;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Catalyst::Authentication::Credential::OpenID - OpenID credential for Catalyst::Plugin::Authentication framework.
-
-=head1 VERSION
-
-0.11
-
-=head1 SYNOPSIS
-
-In MyApp.pm-
-
- use Catalyst qw/
- Authentication
- Session
- Session::Store::FastMmap
- Session::State::Cookie
- /;
-
-Somewhere in myapp.conf-
-
- <Plugin::Authentication>
- default_realm openid
- <realms>
- <openid>
- <credential>
- class OpenID
- </credential>
- ua_class LWPx::ParanoidAgent
- </openid>
- </realms>
- </Plugin::Authentication>
-
-Or in your myapp.yml if you're using L<YAML> instead-
-
- Plugin::Authentication:
- default_realm: openid
- realms:
- openid:
- credential:
- class: OpenID
- ua_class: LWPx::ParanoidAgent
-
-In a controller, perhaps C<Root::openid>-
-
- sub openid : Local {
- my($self, $c) = @_;
-
- if ( $c->authenticate() )
- {
- $c->flash(message => "You signed in with OpenID!");
- $c->res->redirect( $c->uri_for('/') );
- }
- else
- {
- # Present OpenID form.
- }
- }
-
-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" />
- <input type="submit" value="Sign in with OpenID" />
- </form>
-
-=head1 DESCRIPTION
-
-This is the B<third> OpenID related authentication piece for
-L<Catalyst>. The first E<mdash> L<Catalyst::Plugin::Authentication::OpenID>
-by Benjamin Trott E<mdash> was deprecated by the second E<mdash>
-L<Catalyst::Plugin::Authentication::Credential::OpenID> by Tatsuhiko
-Miyagawa E<mdash> and this is an attempt to deprecate both by conforming to
-the newish, at the time of this module's inception, realm-based
-authentication in L<Catalyst::Plugin::Authentication>.
-
- 1. Catalyst::Plugin::Authentication::OpenID
- 2. Catalyst::Plugin::Authentication::Credential::OpenID
- 3. Catalyst::Authentication::Credential::OpenID
-
-The benefit of this version is that you can use an arbitrary number of
-authentication systems in your L<Catalyst> application and configure
-and call all of them in the same way.
-
-Note that both earlier versions of OpenID authentication use the method
-C<authenticate_openid()>. This module uses C<authenticate()> and
-relies on you to specify the realm. You can specify the realm as the
-default in the configuration or inline with each
-C<authenticate()> call; more below.
-
-This module functions quite differently internally from the others.
-See L<Catalyst::Plugin::Authentication::Internals> for more about this
-implementation.
-
-=head1 METHODS
-
-=over 4
-
-=item $c->authenticate({},"your_openid_realm");
-
-Call to authenticate the user via OpenID. Returns false if
-authorization is unsuccessful. Sets the user into the session and
-returns the user object if authentication succeeds.
-
-You can see in the call above that the authentication hash is empty.
-The implicit OpenID parameter is, as the 2.0 specification says it
-SHOULD be, B<openid_identifier>. You can set it anything you like in
-your realm configuration, though, under the key C<openid_field>. If
-you call C<authenticate()> with the empty info hash and no configured
-C<openid_field> then only C<openid_identifier> is checked.
-
-It implicitly does this (sort of, it checks the request method too)-
-
- my $claimed_uri = $c->req->params->{openid_identifier};
- $c->authenticate({openid_identifier => $claimed_uri});
-
-=item Catalyst::Authentication::Credential::OpenID->new()
-
-You will never call this. Catalyst does it for you. The only important
-thing you might like to know about it is that it merges its realm
-configuration with its configuration proper. If this doesn't mean
-anything to you, don't worry.
-
-=back
-
-=head2 USER METHODS
-
-Currently the only supported user class is L<Catalyst::Plugin::Authentication::User::Hash>.
-
-=over 4
-
-=item $c->user->url
-
-=item $c->user->display
-
-=item $c->user->rss
-
-=item $c->user->atom
-
-=item $c->user->foaf
-
-=item $c->user->declared_rss
-
-=item $c->user->declared_atom
-
-=item $c->user->declared_foaf
-
-=item $c->user->foafmaker
-
-=back
-
-See L<Net::OpenID::VerifiedIdentity> for details.
-
-=head1 CONFIGURATION
-
-Catalyst authentication is now configured entirely from your
-application's configuration. Do not, for example, put
-C<Credential::OpenID> into your C<use Catalyst ...> statement.
-Instead, tell your application that in one of your authentication
-realms you will use the credential.
-
-In your application the following will give you two different
-authentication realms. One called "members" which authenticates with
-clear text passwords and one called "openid" which uses... uh, OpenID.
-
- __PACKAGE__->config
- ( name => "MyApp",
- "Plugin::Authentication" => {
- default_realm => "members",
- realms => {
- members => {
- credential => {
- class => "Password",
- password_field => "password",
- password_type => "clear"
- },
- store => {
- class => "Minimal",
- users => {
- paco => {
- password => "l4s4v3n7ur45",
- },
- }
- }
- },
- openid => {
- consumer_secret => "Don't bother setting",
- ua_class => "LWPx::ParanoidAgent",
- ua_args => {
- whitelisted_hosts => [qw/ 127.0.0.1 localhost /],
- },
- credential => {
- class => "OpenID",
- store => {
- class => "OpenID",
- },
- },
- extension_args => [
- 'http://openid.net/extensions/sreg/1.1',
- {
- required => 'email',
- optional => 'fullname,nickname,timezone',
- },
- ],
- },
- },
- }
- );
-
-This is the same configuration in the default L<Catalyst> configuration format from L<Config::General>.
-
- name MyApp
- <Plugin::Authentication>
- default_realm members
- <realms>
- <members>
- <store>
- class Minimal
- <users>
- <paco>
- password l4s4v3n7ur45
- </paco>
- </users>
- </store>
- <credential>
- password_field password
- password_type clear
- class Password
- </credential>
- </members>
- <openid>
- <ua_args>
- whitelisted_hosts 127.0.0.1
- whitelisted_hosts localhost
- </ua_args>
- consumer_secret Don't bother setting
- ua_class LWPx::ParanoidAgent
- <credential>
- <store>
- class OpenID
- </store>
- class OpenID
- </credential>
- <extension_args>
- http://openid.net/extensions/sreg/1.1
- required email
- optional fullname,nickname,timezone
- </extension_args>
- </openid>
- </realms>
- </Plugin::Authentication>
-
-And now, the same configuration in L<YAML>. B<NB>: L<YAML> is whitespace sensitive.
-
- name: MyApp
- Plugin::Authentication:
- default_realm: members
- realms:
- members:
- credential:
- class: Password
- password_field: password
- password_type: clear
- store:
- class: Minimal
- users:
- paco:
- password: l4s4v3n7ur45
- openid:
- credential:
- class: OpenID
- store:
- class: OpenID
- consumer_secret: Don't bother setting
- ua_class: LWPx::ParanoidAgent
- ua_args:
- whitelisted_hosts:
- - 127.0.0.1
- - localhost
- extension_args:
- - http://openid.net/extensions/sreg/1.1
- - required: email
- optional: fullname,nickname,timezone
-
-B<NB>: There is no OpenID store yet.
-
-=head2 EXTENSIONS TO OPENID
-
-The L<Simple Registration|http://openid.net/extensions/sreg/1.1> (SREG) extension to OpenID is supported in the L<Net::OpenID> family now. Experimental support for it is included here as of v0.12. SREG is the only supported extension in OpenID 1.1. It's experimental in the sense it's a new interface and barely tested. Support for OpenID extensions is here to stay.
-
-=head2 MORE ON CONFIGURATION
-
-These are set in your realm. See above.
-
-=over 4
-
-=item ua_args and ua_class
-
-L<LWPx::ParanoidAgent> is the default agent E<mdash> C<ua_class>. You don't
-have to set it. I recommend that you do B<not> override it. You can
-with any well behaved L<LWP::UserAgent>. You probably should not.
-L<LWPx::ParanoidAgent> buys you many defenses and extra security
-checks. When you allow your application users freedom to initiate
-external requests, you open a big avenue for DoS (denial of service)
-attacks. L<LWPx::ParanoidAgent> defends against this.
-L<LWP::UserAgent> and any regular subclass of it will not.
-
-=item consumer_secret
-
-The underlying L<Net::OpenID::Consumer> object is seeded with a
-secret. If it's important to you to set your own, you can. The default
-uses this package name + its version + the sorted configuration keys
-of your Catalyst application (chopped at 255 characters if it's
-longer). This should generally be superior to any fixed string.
-
-=back
-
-=head1 TODO
-
-Support more of the new methods in the L<Net::OpenID> kit.
-
-There are some interesting implications with this sort of setup. Does
-a user aggregate realms or can a user be signed in under more than one
-realm? The documents could contain a recipe of the self-answering
-OpenID end-point that is in the tests.
-
-Debug statements need to be both expanded and limited via realm
-configuration.
-
-Better diagnostics in errors. Debug info at all consumer calls.
-
-Roles from provider domains? Mapped? Direct? A generic "openid" auto_role?
-
-=head1 THANKS
-
-To Benjamin Trott (L<Catalyst::Plugin::Authentication::OpenID>), Tatsuhiko Miyagawa (L<Catalyst::Plugin::Authentication::Credential::OpenID>), Brad Fitzpatrick for the great OpenID stuff, Martin Atkins for picking up the code to handle OpenID 2.0, and Jay Kuri and everyone else who has made Catalyst such a wonderful framework.
-
-L<Meno Blom|http://search.cpan.org/~blom/> provided a bug fix and the hook to use OpenID extensions.
-
-=head1 LICENSE AND COPYRIGHT
-
-Copyright (c) 2008, Ashley Pond V C<< <ashley at cpan.org> >>. Some of Tatsuhiko Miyagawa's work is reused here.
-
-This module is free software; you can redistribute it and modify it under the same terms as Perl itself. See L<perlartistic>.
-
-=head1 DISCLAIMER OF WARRANTY
-
-Because this software is licensed free of charge, there is no warranty
-for the software, to the extent permitted by applicable law. Except when
-otherwise stated in writing the copyright holders and other parties
-provide the software "as is" without warranty of any kind, either
-expressed or implied, including, but not limited to, the implied
-warranties of merchantability and fitness for a particular purpose. The
-entire risk as to the quality and performance of the software is with
-you. Should the software prove defective, you assume the cost of all
-necessary servicing, repair, or correction.
-
-In no event unless required by applicable law or agreed to in writing
-will any copyright holder, or any other party who may modify or
-redistribute the software as permitted by the above license, be
-liable to you for damages, including any general, special, incidental,
-or consequential damages arising out of the use or inability to use
-the software (including but not limited to loss of data or data being
-rendered inaccurate or losses sustained by you or third parties or a
-failure of the software to operate with any other software), even if
-such holder or other party has been advised of the possibility of
-such damages.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item OpenID
-
-L<Net::OpenID::Server>, L<Net::OpenID::VerifiedIdentity>, L<Net::OpenID::Consumer>, L<http://openid.net/>, L<http://openid.net/developers/specs/>, and L<http://openid.net/extensions/sreg/1.1>.
-
-=item Catalyst Authentication
-
-L<Catalyst>, L<Catalyst::Plugin::Authentication>, L<Catalyst::Manual::Tutorial::Authorization>, and L<Catalyst::Manual::Tutorial::Authentication>.
-
-=item Catalyst Configuration
-
-L<Catalyst::Plugin::ConfigLoader>, L<Config::General>, and L<YAML>.
-
-=item Miscellaneous
-
-L<Catalyst::Manual::Tutorial>, L<Template>, L<LWPx::ParanoidAgent>.
-
-=back
-
-=cut
Copied: Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm (from rev 8686, Catalyst-Authentication-Credential-OpenID/0.12/lib/Catalyst/Authentication/Credential/OpenID.pm)
===================================================================
--- Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm (rev 0)
+++ Catalyst-Authentication-Credential-OpenID/0.13/lib/Catalyst/Authentication/Credential/OpenID.pm 2008-12-02 03:46:21 UTC (rev 8688)
@@ -0,0 +1,521 @@
+package Catalyst::Authentication::Credential::OpenID;
+use strict;
+# use warnings; no warnings "uninitialized"; # for testing, not production
+use parent "Class::Accessor::Fast";
+
+BEGIN {
+ __PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
+}
+
+our $VERSION = "0.13";
+
+use Net::OpenID::Consumer;
+use Catalyst::Exception ();
+
+sub new : method {
+ my ( $class, $config, $c, $realm ) = @_;
+ my $self = { _config => { %{ $config },
+ %{ $realm->{config} }
+ }
+ };
+ bless $self, $class;
+
+ # 2.0 spec says "SHOULD" be named "openid_identifier."
+ $self->_config->{openid_field} ||= "openid_identifier";
+
+ $self->debug( $self->_config->{debug} );
+
+ my $secret = $self->_config->{consumer_secret} ||= join("+",
+ __PACKAGE__,
+ $VERSION,
+ sort keys %{ $c->config }
+ );
+
+ $secret = substr($secret,0,255) if length $secret > 255;
+ $self->secret($secret);
+ $self->_config->{ua_class} ||= "LWPx::ParanoidAgent";
+
+ 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;
+
+ return $self;
+}
+
+sub authenticate : method {
+ my ( $self, $c, $realm, $authinfo ) = @_;
+
+ $c->log->debug("authenticate() called from " . $c->request->uri) if $self->debug;
+
+ my $field = $self->{_config}->{openid_field};
+
+ my $claimed_uri = $authinfo->{ $field };
+
+ # Its security related so we want to be explicit about GET/POST param retrieval.
+ $claimed_uri ||= $c->req->method eq 'GET' ?
+ $c->req->query_params->{ $field } : $c->req->body_params->{ $field };
+
+ my $csr = Net::OpenID::Consumer->new(
+ ua => $self->_config->{ua_class}->new(%{$self->_config->{ua_args} || {}}),
+ args => $c->req->params,
+ consumer_secret => $self->secret,
+ );
+
+ if ( $claimed_uri )
+ {
+ my $current = $c->uri_for($c->req->uri->path); # clear query/fragment...
+
+ my $identity = $csr->claimed_identity($claimed_uri)
+ or Catalyst::Exception->throw($csr->err);
+
+ $identity->set_extension_args(@{$self->_config->{extension_args}})
+ if $self->_config->{extension_args};
+
+ my $check_url = $identity->check_url(
+ return_to => $current . '?openid-check=1',
+ trust_root => $current,
+ delayed_return => 1,
+ );
+ $c->res->redirect($check_url);
+ $c->detach();
+ }
+ elsif ( $c->req->params->{'openid-check'} )
+ {
+ if ( my $setup_url = $csr->user_setup_url )
+ {
+ $c->res->redirect($setup_url);
+ return;
+ }
+ elsif ( $csr->user_cancel )
+ {
+ return;
+ }
+ elsif ( my $identity = $csr->verified_identity )
+ {
+ # This is where we ought to build an OpenID user and verify against the spec.
+ my $user = +{ map { $_ => scalar $identity->$_ }
+ qw( url display rss atom foaf declared_rss declared_atom declared_foaf foafmaker ) };
+
+ for(keys %{$self->{_config}->{extensions}}) {
+ $user->{extensions}->{$_} = $identity->signed_extension_fields($_);
+ }
+
+ my $user_obj = $realm->find_user($user, $c);
+
+ if ( ref $user_obj )
+ {
+ return $user_obj;
+ }
+ else
+ {
+ $c->log->debug("Verified OpenID identity failed to load with find_user; bad user_class? Try 'Null.'") if $c->debug;
+ return;
+ }
+ }
+ else
+ {
+ Catalyst::Exception->throw("Error validating identity: " .
+ $csr->err);
+ }
+ }
+ return;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Catalyst::Authentication::Credential::OpenID - OpenID credential for Catalyst::Plugin::Authentication framework.
+
+=head1 VERSION
+
+0.13
+
+=head1 SYNOPSIS
+
+In MyApp.pm-
+
+ use Catalyst qw/
+ Authentication
+ Session
+ Session::Store::FastMmap
+ Session::State::Cookie
+ /;
+
+Somewhere in myapp.conf-
+
+ <Plugin::Authentication>
+ default_realm openid
+ <realms>
+ <openid>
+ <credential>
+ class OpenID
+ </credential>
+ ua_class LWPx::ParanoidAgent
+ </openid>
+ </realms>
+ </Plugin::Authentication>
+
+Or in your myapp.yml if you're using L<YAML> instead-
+
+ Plugin::Authentication:
+ default_realm: openid
+ realms:
+ openid:
+ credential:
+ class: OpenID
+ ua_class: LWPx::ParanoidAgent
+
+In a controller, perhaps C<Root::openid>-
+
+ sub openid : Local {
+ my($self, $c) = @_;
+
+ if ( $c->authenticate() )
+ {
+ $c->flash(message => "You signed in with OpenID!");
+ $c->res->redirect( $c->uri_for('/') );
+ }
+ else
+ {
+ # Present OpenID form.
+ }
+ }
+
+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" />
+ <input type="submit" value="Sign in with OpenID" />
+ </form>
+
+=head1 DESCRIPTION
+
+This is the B<third> OpenID related authentication piece for
+L<Catalyst>. The first E<mdash> L<Catalyst::Plugin::Authentication::OpenID>
+by Benjamin Trott E<mdash> was deprecated by the second E<mdash>
+L<Catalyst::Plugin::Authentication::Credential::OpenID> by Tatsuhiko
+Miyagawa E<mdash> and this is an attempt to deprecate both by conforming to
+the newish, at the time of this module's inception, realm-based
+authentication in L<Catalyst::Plugin::Authentication>.
+
+ 1. Catalyst::Plugin::Authentication::OpenID
+ 2. Catalyst::Plugin::Authentication::Credential::OpenID
+ 3. Catalyst::Authentication::Credential::OpenID
+
+The benefit of this version is that you can use an arbitrary number of
+authentication systems in your L<Catalyst> application and configure
+and call all of them in the same way.
+
+Note that both earlier versions of OpenID authentication use the method
+C<authenticate_openid()>. This module uses C<authenticate()> and
+relies on you to specify the realm. You can specify the realm as the
+default in the configuration or inline with each
+C<authenticate()> call; more below.
+
+This module functions quite differently internally from the others.
+See L<Catalyst::Plugin::Authentication::Internals> for more about this
+implementation.
+
+=head1 METHODS
+
+=over 4
+
+=item $c->authenticate({},"your_openid_realm");
+
+Call to authenticate the user via OpenID. Returns false if
+authorization is unsuccessful. Sets the user into the session and
+returns the user object if authentication succeeds.
+
+You can see in the call above that the authentication hash is empty.
+The implicit OpenID parameter is, as the 2.0 specification says it
+SHOULD be, B<openid_identifier>. You can set it anything you like in
+your realm configuration, though, under the key C<openid_field>. If
+you call C<authenticate()> with the empty info hash and no configured
+C<openid_field> then only C<openid_identifier> is checked.
+
+It implicitly does this (sort of, it checks the request method too)-
+
+ my $claimed_uri = $c->req->params->{openid_identifier};
+ $c->authenticate({openid_identifier => $claimed_uri});
+
+=item Catalyst::Authentication::Credential::OpenID->new()
+
+You will never call this. Catalyst does it for you. The only important
+thing you might like to know about it is that it merges its realm
+configuration with its configuration proper. If this doesn't mean
+anything to you, don't worry.
+
+=back
+
+=head2 USER METHODS
+
+Currently the only supported user class is L<Catalyst::Plugin::Authentication::User::Hash>.
+
+=over 4
+
+=item $c->user->url
+
+=item $c->user->display
+
+=item $c->user->rss
+
+=item $c->user->atom
+
+=item $c->user->foaf
+
+=item $c->user->declared_rss
+
+=item $c->user->declared_atom
+
+=item $c->user->declared_foaf
+
+=item $c->user->foafmaker
+
+=back
+
+See L<Net::OpenID::VerifiedIdentity> for details.
+
+=head1 CONFIGURATION
+
+Catalyst authentication is now configured entirely from your
+application's configuration. Do not, for example, put
+C<Credential::OpenID> into your C<use Catalyst ...> statement.
+Instead, tell your application that in one of your authentication
+realms you will use the credential.
+
+In your application the following will give you two different
+authentication realms. One called "members" which authenticates with
+clear text passwords and one called "openid" which uses... uh, OpenID.
+
+ __PACKAGE__->config
+ ( name => "MyApp",
+ "Plugin::Authentication" => {
+ default_realm => "members",
+ realms => {
+ members => {
+ credential => {
+ class => "Password",
+ password_field => "password",
+ password_type => "clear"
+ },
+ store => {
+ class => "Minimal",
+ users => {
+ paco => {
+ password => "l4s4v3n7ur45",
+ },
+ }
+ }
+ },
+ openid => {
+ consumer_secret => "Don't bother setting",
+ ua_class => "LWPx::ParanoidAgent",
+ ua_args => {
+ whitelisted_hosts => [qw/ 127.0.0.1 localhost /],
+ },
+ credential => {
+ class => "OpenID",
+ store => {
+ class => "OpenID",
+ },
+ },
+ extension_args => [
+ 'http://openid.net/extensions/sreg/1.1',
+ {
+ required => 'email',
+ optional => 'fullname,nickname,timezone',
+ },
+ ],
+ },
+ },
+ }
+ );
+
+This is the same configuration in the default L<Catalyst> configuration format from L<Config::General>.
+
+ name MyApp
+ <Plugin::Authentication>
+ default_realm members
+ <realms>
+ <members>
+ <store>
+ class Minimal
+ <users>
+ <paco>
+ password l4s4v3n7ur45
+ </paco>
+ </users>
+ </store>
+ <credential>
+ password_field password
+ password_type clear
+ class Password
+ </credential>
+ </members>
+ <openid>
+ <ua_args>
+ whitelisted_hosts 127.0.0.1
+ whitelisted_hosts localhost
+ </ua_args>
+ consumer_secret Don't bother setting
+ ua_class LWPx::ParanoidAgent
+ <credential>
+ <store>
+ class OpenID
+ </store>
+ class OpenID
+ </credential>
+ <extension_args>
+ http://openid.net/extensions/sreg/1.1
+ required email
+ optional fullname,nickname,timezone
+ </extension_args>
+ </openid>
+ </realms>
+ </Plugin::Authentication>
+
+And now, the same configuration in L<YAML>. B<NB>: L<YAML> is whitespace sensitive.
+
+ name: MyApp
+ Plugin::Authentication:
+ default_realm: members
+ realms:
+ members:
+ credential:
+ class: Password
+ password_field: password
+ password_type: clear
+ store:
+ class: Minimal
+ users:
+ paco:
+ password: l4s4v3n7ur45
+ openid:
+ credential:
+ class: OpenID
+ store:
+ class: OpenID
+ consumer_secret: Don't bother setting
+ ua_class: LWPx::ParanoidAgent
+ ua_args:
+ whitelisted_hosts:
+ - 127.0.0.1
+ - localhost
+ extension_args:
+ - http://openid.net/extensions/sreg/1.1
+ - required: email
+ optional: fullname,nickname,timezone
+
+B<NB>: There is no OpenID store yet.
+
+=head2 EXTENSIONS TO OPENID
+
+The L<Simple Registration|http://openid.net/extensions/sreg/1.1> (SREG) extension to OpenID is supported in the L<Net::OpenID> family now. Experimental support for it is included here as of v0.12. SREG is the only supported extension in OpenID 1.1. It's experimental in the sense it's a new interface and barely tested. Support for OpenID extensions is here to stay.
+
+=head2 MORE ON CONFIGURATION
+
+These are set in your realm. See above.
+
+=over 4
+
+=item ua_args and ua_class
+
+L<LWPx::ParanoidAgent> is the default agent E<mdash> C<ua_class>. You don't
+have to set it. I recommend that you do B<not> override it. You can
+with any well behaved L<LWP::UserAgent>. You probably should not.
+L<LWPx::ParanoidAgent> buys you many defenses and extra security
+checks. When you allow your application users freedom to initiate
+external requests, you open a big avenue for DoS (denial of service)
+attacks. L<LWPx::ParanoidAgent> defends against this.
+L<LWP::UserAgent> and any regular subclass of it will not.
+
+=item consumer_secret
+
+The underlying L<Net::OpenID::Consumer> object is seeded with a
+secret. If it's important to you to set your own, you can. The default
+uses this package name + its version + the sorted configuration keys
+of your Catalyst application (chopped at 255 characters if it's
+longer). This should generally be superior to any fixed string.
+
+=back
+
+=head1 TODO
+
+Support more of the new methods in the L<Net::OpenID> kit.
+
+There are some interesting implications with this sort of setup. Does
+a user aggregate realms or can a user be signed in under more than one
+realm? The documents could contain a recipe of the self-answering
+OpenID end-point that is in the tests.
+
+Debug statements need to be both expanded and limited via realm
+configuration.
+
+Better diagnostics in errors. Debug info at all consumer calls.
+
+Roles from provider domains? Mapped? Direct? A generic "openid" auto_role?
+
+=head1 THANKS
+
+To Benjamin Trott (L<Catalyst::Plugin::Authentication::OpenID>), Tatsuhiko Miyagawa (L<Catalyst::Plugin::Authentication::Credential::OpenID>), Brad Fitzpatrick for the great OpenID stuff, Martin Atkins for picking up the code to handle OpenID 2.0, and Jay Kuri and everyone else who has made Catalyst such a wonderful framework.
+
+L<Menno Blom|http://search.cpan.org/~blom/> provided a bug fix and the hook to use OpenID extensions.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright (c) 2008, Ashley Pond V C<< <ashley at cpan.org> >>. Some of Tatsuhiko Miyagawa's work is reused here.
+
+This module is free software; you can redistribute it and modify it under the same terms as Perl itself. See L<perlartistic>.
+
+=head1 DISCLAIMER OF WARRANTY
+
+Because this software is licensed free of charge, there is no warranty
+for the software, to the extent permitted by applicable law. Except when
+otherwise stated in writing the copyright holders and other parties
+provide the software "as is" without warranty of any kind, either
+expressed or implied, including, but not limited to, the implied
+warranties of merchantability and fitness for a particular purpose. The
+entire risk as to the quality and performance of the software is with
+you. Should the software prove defective, you assume the cost of all
+necessary servicing, repair, or correction.
+
+In no event unless required by applicable law or agreed to in writing
+will any copyright holder, or any other party who may modify or
+redistribute the software as permitted by the above license, be
+liable to you for damages, including any general, special, incidental,
+or consequential damages arising out of the use or inability to use
+the software (including but not limited to loss of data or data being
+rendered inaccurate or losses sustained by you or third parties or a
+failure of the software to operate with any other software), even if
+such holder or other party has been advised of the possibility of
+such damages.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item OpenID
+
+L<Net::OpenID::Server>, L<Net::OpenID::VerifiedIdentity>, L<Net::OpenID::Consumer>, L<http://openid.net/>, L<http://openid.net/developers/specs/>, and L<http://openid.net/extensions/sreg/1.1>.
+
+=item Catalyst Authentication
+
+L<Catalyst>, L<Catalyst::Plugin::Authentication>, L<Catalyst::Manual::Tutorial::Authorization>, and L<Catalyst::Manual::Tutorial::Authentication>.
+
+=item Catalyst Configuration
+
+L<Catalyst::Plugin::ConfigLoader>, L<Config::General>, and L<YAML>.
+
+=item Miscellaneous
+
+L<Catalyst::Manual::Tutorial>, L<Template>, L<LWPx::ParanoidAgent>.
+
+=back
+
+=cut
More information about the Catalyst-commits
mailing list