[Catalyst-commits] r11595 - in Catalyst-Plugin-Session-Store-DBI/trunk: . lib/Catalyst/Plugin/Session/Store

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-10-17 16:51:02 +0000 (Sat, 17 Oct 2009)
New Revision: 11595

Modified:
   Catalyst-Plugin-Session-Store-DBI/trunk/Makefile.PL
   Catalyst-Plugin-Session-Store-DBI/trunk/lib/Catalyst/Plugin/Session/Store/DBI.pm
Log:
Port from NEXT to MRO::Compat.

Modified: Catalyst-Plugin-Session-Store-DBI/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-Session-Store-DBI/trunk/Makefile.PL	2009-10-17 16:50:54 UTC (rev 11594)
+++ Catalyst-Plugin-Session-Store-DBI/trunk/Makefile.PL	2009-10-17 16:51:02 UTC (rev 11595)
@@ -9,6 +9,7 @@
 requires 'MIME::Base64';
 requires 'Storable';
 requires 'Test::More';
+requires 'MRO::Compat';
 
 auto_install;
 resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/trunk/Catalyst-Plugin-Session-Store-DBI/';

Modified: Catalyst-Plugin-Session-Store-DBI/trunk/lib/Catalyst/Plugin/Session/Store/DBI.pm
===================================================================
--- Catalyst-Plugin-Session-Store-DBI/trunk/lib/Catalyst/Plugin/Session/Store/DBI.pm	2009-10-17 16:50:54 UTC (rev 11594)
+++ Catalyst-Plugin-Session-Store-DBI/trunk/lib/Catalyst/Plugin/Session/Store/DBI.pm	2009-10-17 16:51:02 UTC (rev 11595)
@@ -5,7 +5,7 @@
 use base qw/Class::Data::Inheritable Catalyst::Plugin::Session::Store/;
 use DBI;
 use MIME::Base64;
-use NEXT;
+use MRO::Compat;
 use Storable qw/nfreeze thaw/;
 
 our $VERSION = '0.15';
@@ -110,13 +110,13 @@
         }
     }
 
-    $c->NEXT::prepare(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub setup_session {
     my $c = shift;
 
-    $c->NEXT::setup_session(@_);
+    $c->maybe::next::method(@_);
 
     $c->_session_plugin_config->{dbi_table} ||= 'sessions';
     
@@ -302,7 +302,7 @@
 # close any active sth's to avoid warnings
 sub DESTROY {
     my $c = shift;
-    $c->NEXT::DESTROY(@_);
+    $c->maybe::next::method(@_);
     
     for my $key ( keys %{ $c->_session_sql } ) {
         my $accessor = "_sth_$key";