[Catalyst-commits] r9245 - in trunk/Catalyst-Plugin-Cache: . lib/Catalyst/Plugin lib/Catalyst/Plugin/Cache/Choose

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-02-08 07:16:25 +0000 (Sun, 08 Feb 2009)
New Revision: 9245

Modified:
   trunk/Catalyst-Plugin-Cache/Changes
   trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache.pm
   trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache/Choose/KeyRegexes.pm
Log:
Switch to MRO::Compat

Modified: trunk/Catalyst-Plugin-Cache/Changes
===================================================================
--- trunk/Catalyst-Plugin-Cache/Changes	2009-02-08 06:43:59 UTC (rev 9244)
+++ trunk/Catalyst-Plugin-Cache/Changes	2009-02-08 07:16:25 UTC (rev 9245)
@@ -1,3 +1,6 @@
+0.07  UNRELEASED
+        - Switch from NEXT to MRO::Compat
+
 0.06
         - clarify the documentation on how to configure a backend
         - due to stacked evals, certain start up errors were quietly

Modified: trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache/Choose/KeyRegexes.pm
===================================================================
--- trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache/Choose/KeyRegexes.pm	2009-02-08 06:43:59 UTC (rev 9244)
+++ trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache/Choose/KeyRegexes.pm	2009-02-08 07:16:25 UTC (rev 9245)
@@ -4,10 +4,11 @@
 
 use strict;
 use warnings;
+use MRO::Compat;
 
 sub setup {
     my $app = shift;
-    my $ret = $app->NEXT::setup( @_ );
+    my $ret = $app->maybe::next::method( @_ );
 
     my $regexes = $app->config->{cache}{key_regexes} ||= [];
 
@@ -30,7 +31,7 @@
         return $backend if $meta{key} =~ $re;
     }
 
-    $c->NEXT::choose_cache_backend( %meta );
+    $c->maybe::next::method( %meta );
 }
 
 __PACKAGE__;

Modified: trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache.pm
===================================================================
--- trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache.pm	2009-02-08 06:43:59 UTC (rev 9244)
+++ trunk/Catalyst-Plugin-Cache/lib/Catalyst/Plugin/Cache.pm	2009-02-08 07:16:25 UTC (rev 9245)
@@ -11,7 +11,7 @@
 use Scalar::Util ();
 use Catalyst::Utils ();
 use Carp ();
-use NEXT;
+use MRO::Compat;
 
 use Catalyst::Plugin::Cache::Curried;
 
@@ -25,7 +25,7 @@
     # and don't overwrite if some plugin was wicked
     $app->_cache_backends({}) unless $app->_cache_backends;
 
-    my $ret = $app->NEXT::setup( @_ );
+    my $ret = $app->maybe::next::method( @_ );
 
     $app->setup_cache_backends;
 
@@ -46,7 +46,7 @@
     my $app = shift;
 
     # give plugins a chance to find things for themselves
-    $app->NEXT::setup_cache_backends;
+    $app->maybe::next::method;
 
     foreach my $name ( keys %{ $app->config->{cache}{backends} } ) {
         next if $app->get_cache_backend( $name );
@@ -263,7 +263,7 @@
     return $c->default_cache_backend;
 }
 
-sub choose_cache_backend { shift->NEXT::choose_cache_backend( @_ ) } # a convenient fallback
+sub choose_cache_backend { shift->maybe::next::method( @_ ) } # a convenient fallback
 
 sub cache_set {
     my ( $c, $key, $value, %meta ) = @_;