projects
/
catagits/Catalyst-Runtime.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
fix for inheritance mismatch
[catagits/Catalyst-Runtime.git]
/
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/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;