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%2FHeaders.pm;h=0258a098d295246ff500879d6e840fc52c87a6d4;hp=c5a89cb050c07bf8569aaa61a3623cc54cb73112;hb=ac5c933bdd463558e8d621507a53a7b247a9093e;hpb=a4def4120b1f5fecdcbb8b714b7391bfc4f29129 diff --git a/t/lib/Catalyst/Plugin/Test/Headers.pm b/t/lib/Catalyst/Plugin/Test/Headers.pm index c5a89cb..0258a09 100644 --- a/t/lib/Catalyst/Plugin/Test/Headers.pm +++ b/t/lib/Catalyst/Plugin/Test/Headers.pm @@ -1,6 +1,7 @@ package Catalyst::Plugin::Test::Headers; use strict; +use NEXT; sub prepare { my $class = shift; @@ -17,7 +18,7 @@ sub prepare { { no strict 'refs'; - my $plugins = join( ', ', sort grep { m/^Catalyst::Plugin/ } @{ $class . '::ISA' } ); + my $plugins = join ', ', $class->registered_plugins; $c->response->header( 'X-Catalyst-Plugins' => $plugins ); }