X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FCatalyst%2FPlugin%2FTest%2FErrors.pm;h=51e487391a609883daed63659f50a526a970bdfe;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hp=b040b1c063fb54666945e29b15663ce01617acd8;hpb=ac5c933bdd463558e8d621507a53a7b247a9093e;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/Catalyst/Plugin/Test/Errors.pm b/t/lib/Catalyst/Plugin/Test/Errors.pm index b040b1c..51e4873 100644 --- a/t/lib/Catalyst/Plugin/Test/Errors.pm +++ b/t/lib/Catalyst/Plugin/Test/Errors.pm @@ -1,13 +1,13 @@ package Catalyst::Plugin::Test::Errors; use strict; -use NEXT; +use MRO::Compat; sub error { my $c = shift; unless ( $_[0] ) { - return $c->NEXT::error(@_); + return $c->next::method(@_); } if ( $_[0] =~ /^(Unknown resource|No default action defined)/ ) { @@ -27,7 +27,7 @@ sub error { $c->response->headers->push_header( 'X-Catalyst-Error' => $error ); - $c->NEXT::error(@_); + $c->next::method(@_); } 1;