package
Catalyst::Plugin::Test::Plugin;
use
strict;
__PACKAGE__->mk_classdata(
'ran_setup'
);
sub
setup {
my
$c
=
shift
;
$c
->ran_setup(
'1'
);
}
sub
prepare {
my
$class
=
shift
;
my
$c
=
$class
->NEXT::prepare(
@_
);
$c
->response->header(
'X-Catalyst-Plugin-Setup'
=>
$c
->ran_setup );
return
$c
;
}
sub
end : Private {
my
(
$self
,
$c
) =
@_
;
}
1;