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;