package Catalyst::Plugin::Test::Headers;
use strict;
+use NEXT;
sub prepare {
my $class = shift;
{
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 );
}