[Catalyst-commits] r11542 - in Catalyst-Authentication-Credential-OpenID/trunk: . lib/Catalyst/Authentication/Credential

[t0m at dev.catalyst.perl.org]

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;