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%2FPlugin.pm;fp=t%2Flib%2FCatalyst%2FPlugin%2FTest%2FPlugin.pm;h=2f6c289f765c855b0c0bc8444818cd43d529d025;hp=cc6178d20936d68e5002b0ff7df86cd602a254b3;hb=dbb2d5cd1b69209e53eb204e7451d688327b2e11;hpb=6cb9e3832b3faf55e2990e9bff51c709a8cfc4fb diff --git a/t/lib/Catalyst/Plugin/Test/Plugin.pm b/t/lib/Catalyst/Plugin/Test/Plugin.pm index cc6178d..2f6c289 100644 --- a/t/lib/Catalyst/Plugin/Test/Plugin.pm +++ b/t/lib/Catalyst/Plugin/Test/Plugin.pm @@ -1,7 +1,6 @@ package Catalyst::Plugin::Test::Plugin; use strict; -use NEXT; use base qw/Catalyst::Base Class::Data::Inheritable/; @@ -16,6 +15,9 @@ sub prepare { my $class = shift; +# Note: This use of NEXT is deliberately left here to ensure back +# compat, as NEXT always used to be loaded, but is now replaced +# by Class::C3::Adopt::NEXT. my $c = $class->NEXT::prepare(@_); $c->response->header( 'X-Catalyst-Plugin-Setup' => $c->ran_setup );