X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FCatalyst%2FPlugin%2FTest%2FErrors.pm;h=51e487391a609883daed63659f50a526a970bdfe;hp=92fa63c6e81e8debdd42a6a557af20a410678c0b;hb=ae29b412955743885e80350085167b54b69672da;hpb=e16a6c4e6c4d49e73b5286b3186616af14f3f554 diff --git a/t/lib/Catalyst/Plugin/Test/Errors.pm b/t/lib/Catalyst/Plugin/Test/Errors.pm index 92fa63c..51e4873 100644 --- a/t/lib/Catalyst/Plugin/Test/Errors.pm +++ b/t/lib/Catalyst/Plugin/Test/Errors.pm @@ -1,12 +1,13 @@ package Catalyst::Plugin::Test::Errors; use strict; +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)/ ) { @@ -26,7 +27,7 @@ sub error { $c->response->headers->push_header( 'X-Catalyst-Error' => $error ); - $c->NEXT::error(@_); + $c->next::method(@_); } 1;