rah. rename everything.

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Chained / PassedArgs.pm

diff --git a/t/lib/TestApp/Controller/Action/Chained/PassedArgs.pm b/t/lib/TestApp/Controller/Action/Chained/PassedArgs.pm
new file mode 100644 (file)
index 0000000..a84346f
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Chained/PassedArgs.pm
@@ -0,0 +1,34 @@
+package TestApp::Controller::Action::Chained::PassedArgs;
+use warnings;
+use strict;
+
+use base qw( Catalyst::Controller );
+
+#
+#   This controller builds a simple chain of three actions that
+#   will output the arguments they got passed to @_ after the
+#   context object. We do this to test if that passing works
+#   as it should.
+#
+
+sub first  : PathPart('chained/passedargs/a') Chained('/') Captures(1) {
+    my ( $self, $c, $arg ) = @_;
+    $c->stash->{ passed_args } = [ $arg ];
+}
+
+sub second : PathPart('b') Chained('first') Captures(1) {
+    my ( $self, $c, $arg ) = @_;
+    push @{ $c->stash->{ passed_args } }, $arg;
+}
+
+sub third  : PathPart('c') Chained('second') Args(1) {
+    my ( $self, $c, $arg ) = @_;
+    push @{ $c->stash->{ passed_args } }, $arg;
+}
+
+sub end : Private {
+    my ( $self, $c ) = @_;
+    $c->response->body( join '; ', @{ $c->stash->{ passed_args } } );
+}
+
+1;