6 our $VERSION = '0.01';
\r
12 my @plugins = qw/Static::Simple/;
\r
14 # load the SubRequest plugin if available
\r
16 require Catalyst::Plugin::SubRequest;
\r
17 die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';
\r
19 push @plugins, 'SubRequest' unless ($@);
\r
21 TestApp->setup( @plugins );
\r
23 sub incpath_generator {
\r
26 return [ $c->config->{root} . '/incpath' ];
\r
29 sub default : Private {
\r
30 my ( $self, $c ) = @_;
\r
32 $c->res->output( 'default' );
\r
35 sub subtest : Local {
\r
36 my ( $self, $c ) = @_;
\r
38 $c->res->output( $c->subreq('/subtest2') );
\r
41 sub subtest2 : Local {
\r
42 my ( $self, $c ) = @_;
\r
44 $c->res->output( 'subtest2 ok' );
\r