[Catalyst-commits] r9625 - in trunk/Catalyst-Plugin-Session-Store-DBIC: . lib/Catalyst/Plugin/Session/Store

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-30 22:34:30 +0100 (Mon, 30 Mar 2009)
New Revision: 9625

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

Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/Makefile.PL	2009-03-30 21:34:13 UTC (rev 9624)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/Makefile.PL	2009-03-30 21:34:30 UTC (rev 9625)
@@ -15,7 +15,7 @@
         'Class::Accessor::Fast'                      => 0,
         'DBIx::Class'                                => '0.07000',  # For find with unique constraints
         'MIME::Base64'                               => 0,
-        'NEXT'                                       => 0,
+        'MRO::Compat'                                => 0,
         'Scalar::Util'                               => 0,
         'Storable'                                   => 0,
         'FindBin'                                    => 0,

Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2009-03-30 21:34:13 UTC (rev 9624)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2009-03-30 21:34:30 UTC (rev 9625)
@@ -6,7 +6,7 @@
 use Catalyst::Exception;
 use Catalyst::Plugin::Session::Store::DBIC::Delegate;
 use MIME::Base64 ();
-use NEXT;
+use MRO::Compat;
 use Storable ();
 
 our $VERSION = '0.08';
@@ -69,7 +69,7 @@
 sub setup_finished {
     my $c = shift;
 
-    return $c->NEXT::setup_finished unless @_;
+    return $c->next::method unless @_;
 
     # Try to determine id_field if it isn't set
     unless ($c->config->{session}->{id_field}) {
@@ -86,7 +86,7 @@
         $c->config->{session}->{id_field} = $primary_columns[0];
     }
 
-    $c->NEXT::setup_finished(@_);
+    $c->next::method(@_);
 }
 
 =head2 session_store_dbic_class
@@ -170,7 +170,7 @@
 sub session_store_delegate_key_to_accessor {
     my $c = shift;
     my $key = $_[0];
-    my ($field, @args) = $c->NEXT::session_store_delegate_key_to_accessor(@_);
+    my ($field, @args) = $c->next::method(@_);
 
     my ($type) = ($key =~ /^(\w+):/);