t/lib/TestApp.pm

   1 package TestApp;\r
   2 \r
   3 use strict;\r
   4 use Catalyst;\r
   5 use File::Spec::Functions;\r
   6 use FindBin;\r
   7 \r
   8 our $VERSION = '0.01';\r
   9 \r
  10 TestApp->config(\r
  11     name => 'TestApp',\r
  12     debug => 1,\r
  13 );\r
  14 \r
  15 my @plugins = qw/Static::Simple/;\r
  16 \r
  17 # load the SubRequest plugin if available\r
  18 eval { \r
  19     require Catalyst::Plugin::SubRequest; \r
  20     die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';\r
  21 };\r
  22 push @plugins, 'SubRequest' unless ($@);\r
  23 \r
  24 TestApp->setup( @plugins );\r
  25 \r
  26 sub incpath_generator {\r
  27     my $c = shift;\r
  28     \r
  29     return [ $c->config->{root} . '/incpath' ];\r
  30 }\r
  31 \r
  32 sub default : Private {\r
  33     my ( $self, $c ) = @_;\r
  34     \r
  35     $c->res->output( 'default' );\r
  36 }\r
  37 \r
  38 sub subtest : Local {\r
  39     my ( $self, $c ) = @_;\r
  40 \r
  41     $c->res->output( $c->subreq('/subtest2') );\r
  42 }\r
  43 \r
  44 sub subtest2 : Local {\r
  45     my ( $self, $c ) = @_;\r
  46     \r
  47     $c->res->output( 'subtest2 ok' );\r
  48 }\r
  49 \r
  50 sub serve_static : Local {\r
  51     my ( $self, $c ) = @_;\r
  52     \r
  53     my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );\r
  54     \r
  55     $c->serve_static_file( $file );\r
  56 }\r
  57 \r
  58 sub serve_static_404 : Local {\r
  59     my ( $self, $c ) = @_;\r
  60     \r
  61     my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );\r
  62     \r
  63     $c->serve_static_file( $file );\r
  64 }\r
  65 \r
  66 1;\r