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;h=09ee8f75d531b6de1306de253e3abfe6e9a9adf5;hp=5cb6e4ab151d82be220daa76479d1894adc7db15;hb=19a24dbb5b7329841b77ce80102c85c6bb137dee;hpb=2d9f9c8d29a7dc0c8c72458d04eb44f9fc2d8396 diff --git a/t/lib/Catalyst/Plugin/Test/Plugin.pm b/t/lib/Catalyst/Plugin/Test/Plugin.pm index 5cb6e4a..09ee8f7 100644 --- a/t/lib/Catalyst/Plugin/Test/Plugin.pm +++ b/t/lib/Catalyst/Plugin/Test/Plugin.pm @@ -13,18 +13,13 @@ sub setup { $c->ran_setup('1'); } -sub prepare { - +sub prepare { my $class = shift; -# Note: This use of NEXT is deliberately left here (without a use NEXT) -# 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(@_); + my $c = $class->next::method(@_); $c->response->header( 'X-Catalyst-Plugin-Setup' => $c->ran_setup ); return $c; - } # Note: This is horrible, but Catalyst::Plugin::Server forces the body to