stop using Moo as a test package
[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / ActionRoles.pm
CommitLineData
eff60019 1package TestApp::Controller::ActionRoles;
2
3use Moose;
4
5BEGIN { extends 'Catalyst::Controller' }
6
7__PACKAGE__->config(
8 action_roles => ['~Kooh'],
9 action_args => {
10 frew => { boo => 'hello' },
11 },
12);
13
82010ea1 14sub foo : Local Does('Guff') {}
15sub bar : Local Does('~Guff') {}
16sub baz : Local Does('+Guff') {}
eff60019 17sub quux : Local Does('Zoo') {}
18
82010ea1 19sub corge : Local Does('Guff') ActionClass('TestAfter') {
eff60019 20 my ($self, $ctx) = @_;
21 $ctx->stash(after_message => 'moo');
22}
23
24sub frew : Local Does('Boo') {
25 my ($self, $ctx) = @_;
26 my $boo = $ctx->stash->{action_boo};
27 $ctx->response->body($boo);
28}
29
301;