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

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