X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FCatalyst%2FPlugin%2FTest%2FPlugin.pm;h=7758bb766a5c2fbec817f020203debe0277477a1;hb=4f445d82009773eaec628e6ada7bdad23ed52036;hp=cc6178d20936d68e5002b0ff7df86cd602a254b3;hpb=7fa2c9c1b85c98786655ad5169708d8dc84e8353;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/Catalyst/Plugin/Test/Plugin.pm b/t/lib/Catalyst/Plugin/Test/Plugin.pm index cc6178d..7758bb7 100644 --- a/t/lib/Catalyst/Plugin/Test/Plugin.pm +++ b/t/lib/Catalyst/Plugin/Test/Plugin.pm @@ -1,12 +1,13 @@ package Catalyst::Plugin::Test::Plugin; use strict; -use NEXT; use base qw/Catalyst::Base Class::Data::Inheritable/; __PACKAGE__->mk_classdata('ran_setup'); +no warnings 'Class::C3::Adopt::NEXT'; + sub setup { my $c = shift; $c->ran_setup('1'); @@ -16,6 +17,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 );