+++ /dev/null
-package TestApp::Controller::Action::ChildOf::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('childof/passedargs/a') ChildOf('/') Captures(1) {
- my ( $self, $c, $arg ) = @_;
- $c->stash->{ passed_args } = [ $arg ];
-}
-
-sub second : PathPart('b') ChildOf('first') Captures(1) {
- my ( $self, $c, $arg ) = @_;
- push @{ $c->stash->{ passed_args } }, $arg;
-}
-
-sub third : PathPart('c') ChildOf('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;