5 use File::Spec::Functions;
\r
8 our $VERSION = '0.01';
\r
15 my @plugins = qw/Static::Simple/;
\r
17 # load the SubRequest plugin if available
\r
19 require Catalyst::Plugin::SubRequest;
\r
20 die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';
\r
22 push @plugins, 'SubRequest' unless ($@);
\r
24 TestApp->setup( @plugins );
\r
26 sub incpath_generator {
\r
29 return [ $c->config->{root} . '/incpath' ];
\r
32 sub default : Private {
\r
33 my ( $self, $c ) = @_;
\r
35 $c->res->output( 'default' );
\r
38 sub subtest : Local {
\r
39 my ( $self, $c ) = @_;
\r
41 $c->res->output( $c->subreq('/subtest2') );
\r
44 sub subtest2 : Local {
\r
45 my ( $self, $c ) = @_;
\r
47 $c->res->output( 'subtest2 ok' );
\r
50 sub serve_static : Local {
\r
51 my ( $self, $c ) = @_;
\r
53 my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );
\r
55 $c->serve_static_file( $file );
\r
58 sub serve_static_404 : Local {
\r
59 my ( $self, $c ) = @_;
\r
61 my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );
\r
63 $c->serve_static_file( $file );
\r