1 package Catalyst::Plugin::Test::Plugin;
7 use base qw/Class::Data::Inheritable/;
9 __PACKAGE__->mk_classdata('ran_setup');
15 return $c->next::method( @_ );
21 my $c = $class->next::method(@_);
22 $c->response->header( 'X-Catalyst-Plugin-Setup' => $c->ran_setup );
27 # Note: Catalyst::Plugin::Server forces the body to
28 # be parsed, by calling the $c->req->body method in prepare_action.
29 # We need to test this, as this was broken by 5.80. See also
30 # t/aggregate/live_engine_request_body.t.
33 $c->res->header('X-Have-Request-Body', 1) if $c->req->body;