projects
/
catagits/Catalyst-Runtime.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
cc6178d20936d68e5002b0ff7df86cd602a254b3
[catagits/Catalyst-Runtime.git]
/
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;