Checking in changes prior to tagging of version 0.10010. Changelog diff is:

Index: Changes
===================================================================
--- Changes	(revision 9222)
+++ Changes	(working copy)
@@ -1,5 +1,10 @@
Revision history for Perl extension Catalyst::Plugin::Authentication

+0.10010
+      - Change from NEXT to MRO::Compat
+      - Chop a number off the versions to get back to the correct 0.10000
+        version scheme.
+
0.100092_01
- Add hook for failing user restore.
- Add test for this.

diff --git a/Changes b/Changes
index 02b1b10..938578a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Catalyst::Plugin::Authentication
 
+0.10010
+      - Change from NEXT to MRO::Compat
+      - Chop a number off the versions to get back to the correct 0.10000 
+        version scheme.
+
 0.100092_01
       - Add hook for failing user restore.
         - Add test for this.

diff --git a/Makefile.PL b/Makefile.PL
index c27a65a..8e1b2bc 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,6 +11,7 @@ all_from 'lib/Catalyst/Plugin/Authentication.pm';
 
 requires 'Catalyst::Runtime';
 requires 'Class::Inspector';
+requires 'MRO::Compat';
 requires 'Catalyst::Plugin::Session' => '0.10';
 
 test_requires 'Test::More';

diff --git a/lib/Catalyst/Plugin/Authentication.pm b/lib/Catalyst/Plugin/Authentication.pm
index 21a601c..223119f 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication.pm
+++ b/lib/Catalyst/Plugin/Authentication.pm
@@ -7,11 +7,12 @@ __PACKAGE__->mk_accessors(qw/_user/);
 use strict;
 use warnings;
 
+use MRO::Compat;
 use Tie::RefHash;
 use Class::Inspector;
 use Catalyst::Authentication::Realm;
 
-our $VERSION = "0.100092_01";
+our $VERSION = "0.10010";
 
 sub set_authenticated {
     my ( $c, $user, $realmname ) = @_;
@@ -32,7 +33,7 @@ sub set_authenticated {
 
     $c->persist_user();    
     
-    $c->NEXT::set_authenticated($user, $realmname);
+    $c->maybe::next::method($user, $realmname);
 }
 
 sub user {
@@ -130,7 +131,7 @@ sub logout {
         $realm->remove_persisted_user($c);
     }
     
-    $c->NEXT::logout(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub find_user {
@@ -199,7 +200,7 @@ sub setup {
     my $app = shift;
 
     $app->_authentication_initialize();
-    $app->NEXT::setup(@_);
+    $app->next::method(@_);
 }
 
 ## the actual initialization routine. whee.