use strict;
use base qw/Catalyst::Base Class::Data::Inheritable/;
__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;