\r
use strict;\r
use Catalyst;\r
-use File::Spec::Functions;\r
use FindBin;\r
\r
our $VERSION = '0.01';\r
return [ $c->config->{root} . '/incpath' ];\r
}\r
\r
-sub default : Private {\r
- my ( $self, $c ) = @_;\r
- \r
- $c->res->output( 'default' );\r
-}\r
-\r
-sub subtest : Local {\r
- my ( $self, $c ) = @_;\r
-\r
- $c->res->output( $c->subreq('/subtest2') );\r
-}\r
-\r
-sub subtest2 : Local {\r
- my ( $self, $c ) = @_;\r
- \r
- $c->res->output( 'subtest2 ok' );\r
-}\r
-\r
-sub serve_static : Local {\r
- my ( $self, $c ) = @_;\r
- \r
- my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );\r
- \r
- $c->serve_static_file( $file );\r
-}\r
-\r
-sub serve_static_404 : Local {\r
- my ( $self, $c ) = @_;\r
- \r
- my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );\r
- \r
- $c->serve_static_file( $file );\r
-}\r
-\r
1;\r