[Catalyst-commits] r11542 - in
Catalyst-Authentication-Credential-OpenID/trunk: .
lib/Catalyst/Authentication/Credential
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Fri Oct 16 08:21:46 GMT 2009
Author: t0m
Date: 2009-10-16 08:21:45 +0000 (Fri, 16 Oct 2009)
New Revision: 11542
Modified:
Catalyst-Authentication-Credential-OpenID/trunk/Makefile.PL
Catalyst-Authentication-Credential-OpenID/trunk/lib/Catalyst/Authentication/Credential/OpenID.pm
Log:
Small cleanups
Modified: Catalyst-Authentication-Credential-OpenID/trunk/Makefile.PL
===================================================================
--- Catalyst-Authentication-Credential-OpenID/trunk/Makefile.PL 2009-10-16 01:28:16 UTC (rev 11541)
+++ Catalyst-Authentication-Credential-OpenID/trunk/Makefile.PL 2009-10-16 08:21:45 UTC (rev 11542)
@@ -1,10 +1,11 @@
use inc::Module::Install 0.87;
+use strict;
+use warnings;
name "Catalyst-Authentication-Credential-OpenID";
all_from "lib/Catalyst/Authentication/Credential/OpenID.pm";
-author "Ashley Pond V <ashley at cpan.org>";
+author "Ashley Pond V <ashley\@cpan.org>";
-requires "parent" => "0.2";
requires "Class::Accessor::Fast" => undef;
requires "HTML::Parser" => "3";
requires "LWP::UserAgent" => undef;
Modified: Catalyst-Authentication-Credential-OpenID/trunk/lib/Catalyst/Authentication/Credential/OpenID.pm
===================================================================
--- Catalyst-Authentication-Credential-OpenID/trunk/lib/Catalyst/Authentication/Credential/OpenID.pm 2009-10-16 01:28:16 UTC (rev 11541)
+++ Catalyst-Authentication-Credential-OpenID/trunk/lib/Catalyst/Authentication/Credential/OpenID.pm 2009-10-16 08:21:45 UTC (rev 11542)
@@ -1,18 +1,16 @@
package Catalyst::Authentication::Credential::OpenID;
use strict;
-# use warnings; no warnings "uninitialized"; # for testing, not production
-use parent "Class::Accessor::Fast";
+use warnings;
+use base "Class::Accessor::Fast";
-BEGIN {
- __PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
-}
+__PACKAGE__->mk_accessors(qw/ _config realm debug secret /);
our $VERSION = "0.16";
use Net::OpenID::Consumer;
use Catalyst::Exception ();
-sub new : method {
+sub new {
my ( $class, $config, $c, $realm ) = @_;
my $self = { _config => { %{ $config },
%{ $realm->{config} }
@@ -47,7 +45,7 @@
return $self;
}
-sub authenticate : method {
+sub authenticate {
my ( $self, $c, $realm, $authinfo ) = @_;
$c->log->debug("authenticate() called from " . $c->request->uri) if $self->debug;
More information about the Catalyst-commits
mailing list