[Catalyst-commits] r9626 - in trunk/Catalyst-Plugin-Session-Store-FastMmap: . lib/Catalyst/Plugin/Session/Store

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-30 22:43:45 +0100 (Mon, 30 Mar 2009)
New Revision: 9626

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

Modified: trunk/Catalyst-Plugin-Session-Store-FastMmap/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-FastMmap/Makefile.PL	2009-03-30 21:34:30 UTC (rev 9625)
+++ trunk/Catalyst-Plugin-Session-Store-FastMmap/Makefile.PL	2009-03-30 21:43:45 UTC (rev 9626)
@@ -8,7 +8,8 @@
                            'Catalyst::Plugin::Session' => '0.09',
                            'File::Spec' => '0',
                            'File::Temp' => '0',
-                           'Path::Class' => '0'
+                           'Path::Class' => '0',
+                           'MRO::Compat' => '0',
                          },
           'INSTALLDIRS' => 'site',
           'EXE_FILES' => [],

Modified: trunk/Catalyst-Plugin-Session-Store-FastMmap/lib/Catalyst/Plugin/Session/Store/FastMmap.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-FastMmap/lib/Catalyst/Plugin/Session/Store/FastMmap.pm	2009-03-30 21:34:30 UTC (rev 9625)
+++ trunk/Catalyst-Plugin-Session-Store-FastMmap/lib/Catalyst/Plugin/Session/Store/FastMmap.pm	2009-03-30 21:43:45 UTC (rev 9626)
@@ -2,11 +2,11 @@
 
 use strict;
 use base qw/
-    Class::Accessor::Fast 
-    Class::Data::Inheritable 
+    Class::Accessor::Fast
+    Class::Data::Inheritable
     Catalyst::Plugin::Session::Store/;
 
-use NEXT;
+use MRO::Compat;
 
 BEGIN {
     require Cache::FastMmap            if $^O ne 'MSWin32';
@@ -86,7 +86,7 @@
     my ( $c, $sid, $sub ) = @_;
     $c->_session_fastmmap_storage->get_and_set( $sid, sub {
         my ( $key, $data ) = @_;
-        my $new = $sub->( $key, $data ); 
+        my $new = $sub->( $key, $data );
         return $new;
     });
 }
@@ -100,7 +100,7 @@
 sub setup_session {
     my $c = shift;
 
-    $c->NEXT::setup_session(@_);
+    $c->maybe::next::method(@_);
 
     my $tmpdir = Catalyst::Utils::class2tempdir($c)
       || Catalyst::Exception->throw("Can't determine tempdir for $c");