t/live/lib/Catalyst/Plugin/Test/Plugin.pm

   1 package Catalyst::Plugin::Test::Plugin;
   2
   3 use strict;
   4
   5 use base qw/Catalyst::Base Class::Data::Inheritable/;
   6
   7  __PACKAGE__->mk_classdata('ran_setup');
   8
   9 sub setup {
  10    my $c = shift;
  11    $c->ran_setup('1');
  12 }
  13
  14 sub  prepare {
  15
  16     my $class = shift;
  17
  18     my $c = $class->NEXT::prepare(@_);
  19     $c->response->header( 'X-Catalyst-Plugin-Setup' => $c->ran_setup );
  20
  21     return $c;
  22
  23 }
  24
  25 sub end : Private {
  26     my ($self,$c) = @_;
  27 }
  28
  29 1;