+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
use Scalar::Util ();
use Catalyst::Utils ();
use Carp ();
-use NEXT;
+use MRO::Compat;
use Catalyst::Plugin::Cache::Curried;
# 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;
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 );
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 ) = @_;
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} ||= [];
return $backend if $meta{key} =~ $re;
}
- $c->NEXT::choose_cache_backend( %meta );
+ $c->maybe::next::method( %meta );
}
__PACKAGE__;