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

use strict;
use Catalyst qw/Pluggable/;

our $VERSION = '0.01';

TestApp->config( name => 'TestApp', root => '/some/dir' );

TestApp->setup;

sub runtest : Global {
    my( $self, $c ) = @_;
    $c->forward_all( 'test' );
}

sub runtest_args : Global {
    my( $self, $c ) = @_;
    $c->forward_all( 'test', [ 'X' ] );
}

sub runtest_reverse : Global {
    my( $self, $c ) = @_;
    $c->forward_all( 'test', '$b->{class} cmp $a->{class}' );
}

1;