Commit | Line | Data |
919acaed |
1 | package TestApp::Controller::Root;\r |
2 | \r |
3 | use strict;\r |
4 | use warnings;\r |
5 | use File::Spec::Functions;\r |
6 | \r |
7 | use base qw/Catalyst::Controller/;\r |
8 | \r |
9 | __PACKAGE__->config(namespace => '');\r |
10 | \r |
11 | sub default : Private {\r |
12 | my ( $self, $c ) = @_;\r |
13 | \r |
14 | $c->res->output( 'default' );\r |
15 | }\r |
16 | \r |
17 | sub subtest : Local {\r |
18 | my ( $self, $c ) = @_;\r |
19 | \r |
20 | $c->res->output( $c->subreq('/subtest2') );\r |
21 | }\r |
22 | \r |
23 | sub subtest2 : Local {\r |
24 | my ( $self, $c ) = @_;\r |
25 | \r |
26 | $c->res->output( 'subtest2 ok' );\r |
27 | }\r |
28 | \r |
29 | sub serve_static : Local {\r |
30 | my ( $self, $c ) = @_;\r |
31 | \r |
32 | my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );\r |
33 | \r |
34 | $c->serve_static_file( $file );\r |
35 | }\r |
36 | \r |
37 | sub serve_static_404 : Local {\r |
38 | my ( $self, $c ) = @_;\r |
39 | \r |
40 | my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );\r |
41 | \r |
42 | $c->serve_static_file( $file );\r |
43 | }\r |
44 | \r |
45 | 1;\r |