Add tests for passing extra arguments to action constructors.
[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Action.pm
CommitLineData
734a1e11 1package TestApp::Controller::Action::Action;
2
3use strict;
4use base 'TestApp::Controller::Action';
5
d87210ec 6__PACKAGE__->config(
7 actions => {
8 action_action_five => { ActionClass => '+Catalyst::Action::TestBefore' },
9 },
10 action_args => {
11 '*' => { extra_arg => 42 },
12 action_action_seven => { another_extra_arg => 23 },
13 },
14);
5d8129e9 15
734a1e11 16sub action_action_one : Global : ActionClass('TestBefore') {
17 my ( $self, $c ) = @_;
18 $c->res->header( 'X-Action', $c->stash->{test} );
19 $c->forward('TestApp::View::Dump::Request');
20}
21
22sub action_action_two : Global : ActionClass('TestAfter') {
23 my ( $self, $c ) = @_;
24 $c->stash->{after_message} = 'awesome';
25 $c->forward('TestApp::View::Dump::Request');
26}
27
28sub action_action_three : Global : ActionClass('+TestApp::Action::TestBefore') {
29 my ( $self, $c ) = @_;
30 $c->forward('TestApp::View::Dump::Request');
31}
32
9287719b 33sub action_action_four : Global : MyAction('TestMyAction') {
34 my ( $self, $c ) = @_;
35 $c->forward('TestApp::View::Dump::Request');
36}
37
5d8129e9 38sub action_action_five : Global {
39 my ( $self, $c ) = @_;
40 $c->res->header( 'X-Action', $c->stash->{test} );
41 $c->forward('TestApp::View::Dump::Request');
42}
43
44sub action_action_six : Global : ActionClass('~TestMyAction') {
45 my ( $self, $c ) = @_;
46 $c->forward('TestApp::View::Dump::Request');
47}
48
d87210ec 49sub action_action_seven : Global : ActionClass('~TestExtraArgsAction') {
50 my ( $self, $c ) = @_;
51 $c->forward('TestApp::View::Dump::Request');
52}
53
734a1e11 541;