Commit | Line | Data |
---|---|---|
d87210ec | 1 | package TestApp::Action::TestExtraArgsAction; |
2 | ||
3 | use Moose; | |
4 | use namespace::autoclean; | |
5 | ||
6 | extends 'Catalyst::Action'; | |
7 | ||
8 | has [qw/extra_arg another_extra_arg/] => (is => 'ro'); | |
9 | ||
10 | after execute => sub { | |
11 | my ($self, $controller, $ctx) = @_; | |
12 | $ctx->response->header('X-TestExtraArgsAction' => join q{,} => $self->extra_arg, $self->another_extra_arg); | |
13 | }; | |
14 | ||
15 | __PACKAGE__->meta->make_immutable; | |
16 | ||
17 | 1; |