[Catalyst-commits] r12716 - Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Plugin/Authentication/Store

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-22 21:50:49 +0000 (Fri, 22 Jan 2010)
New Revision: 12716

Modified:
   Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm
Log:
Port from NEXT to C3.

Also clean up more silly whitespace.

Modified: Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm	2010-01-22 21:50:43 UTC (rev 12715)
+++ Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm	2010-01-22 21:50:49 UTC (rev 12716)
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+use MRO::Compat;
 
 use Catalyst::Authentication::Store::Minimal ();
 
@@ -22,20 +23,20 @@
     ###  lib/Catalyst/Authentication/Store/Minimal.pm line 38.
     ###
     ### So only do this compatibility call if:
-    ### 1) we have a {users} config directive 
+    ### 1) we have a {users} config directive
     ###
     ### Ideally we could also check for:
     ### 2) we don't already have a ->userhash
-    ### however, that's an attribute of an object we can't 
+    ### however, that's an attribute of an object we can't
     ### access =/ --kane
-    
+
     my $cfg = $c->config->{'Plugin::Authentication'}->{users}
                 ? $c->config->{'Plugin::Authentication'}
                 : undef;
 
     $c->default_auth_store( Catalyst::Authentication::Store::Minimal->new( $cfg, $c ) ) if $cfg;
-    
-	$c->NEXT::setup(@_);
+
+	$c->next::method(@_);
 }
 
 foreach my $method (qw/ get_user user_supports find_user from_session /) {