t/lib/IncTestApp/Controller/Root.pm

   1 package IncTestApp::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