The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestAppChainedRecursive::Controller::Foo;

use strict;
use warnings;

use base qw/Catalyst::Controller/;

sub foo : Chained('bar') CaptureArgs(1) { }
sub bar : Chained('foo') CaptureArgs(1) { }

1;