X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FAction%2FTestActionArgsFromConstructor.pm;fp=t%2Flib%2FTestApp%2FAction%2FTestActionArgsFromConstructor.pm;h=67f8a13c621d10c971ea7ccf4f451391a98d9e77;hp=0000000000000000000000000000000000000000;hb=6329bfe593d5ea3891011333f7d7984b4e5e7910;hpb=2ebff18413196b185e590f60196e7690c932fc44

diff --git a/t/lib/TestApp/Action/TestActionArgsFromConstructor.pm b/t/lib/TestApp/Action/TestActionArgsFromConstructor.pm
new file mode 100644
index 0000000..67f8a13
--- /dev/null
+++ b/t/lib/TestApp/Action/TestActionArgsFromConstructor.pm
@@ -0,0 +1,18 @@
+package TestApp::Action::TestActionArgsFromConstructor;
+
+use Moose;
+use namespace::autoclean;
+
+extends 'Catalyst::Action';
+
+has [qw/extra_arg another_extra_arg/] => ( is => 'ro' );
+
+after execute => sub {
+    my ($self, $controller, $ctx) = @_;
+    $ctx->response->header('X-TestExtraArgsAction' => join q{,} => $self->extra_arg, $self->another_extra_arg);
+};
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+