t/lib/TestApp/Action/TestActionArgsFromConstructor.pm

   1 package TestApp::Action::TestActionArgsFromConstructor;
   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;
  18