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

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