[Catalyst-commits] r9622 - in tags/Catalyst-Plugin-Session-Store-DBIC/0.08: . lib/Catalyst/Plugin/Session/Store

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-30 22:27:32 +0100 (Mon, 30 Mar 2009)
New Revision: 9622

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

Modified: tags/Catalyst-Plugin-Session-Store-DBIC/0.08/Makefile.PL
===================================================================
--- tags/Catalyst-Plugin-Session-Store-DBIC/0.08/Makefile.PL	2009-03-30 21:27:03 UTC (rev 9621)
+++ tags/Catalyst-Plugin-Session-Store-DBIC/0.08/Makefile.PL	2009-03-30 21:27:32 UTC (rev 9622)
@@ -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: tags/Catalyst-Plugin-Session-Store-DBIC/0.08/lib/Catalyst/Plugin/Session/Store/DBIC.pm
===================================================================
--- tags/Catalyst-Plugin-Session-Store-DBIC/0.08/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2009-03-30 21:27:03 UTC (rev 9621)
+++ tags/Catalyst-Plugin-Session-Store-DBIC/0.08/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2009-03-30 21:27:32 UTC (rev 9622)
@@ -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+):/);