t/lib/TestApp.pm

   1 package TestApp;\r
   2 \r
   3 use strict;\r
   4 use Catalyst;\r
   5 \r
   6 our $VERSION = '0.01';\r
   7 \r
   8 TestApp->config(\r
   9     name => 'TestApp',\r
  10 );\r
  11 \r
  12 my @plugins = qw/-Debug Static::Simple/;\r
  13 \r
  14 # load the SubRequest plugin if available\r
  15 eval { require Catalyst::Plugin::SubRequest; };\r
  16 push @plugins, 'SubRequest' unless ($@);\r
  17 \r
  18 TestApp->setup( @plugins );\r
  19 \r
  20 sub incpath_generator {\r
  21     my $c = shift;\r
  22     \r
  23     return [ $c->config->{root} . '/incpath' ];\r
  24 }\r
  25 \r
  26 sub default : Private {\r
  27     my ( $self, $c ) = @_;\r
  28     \r
  29     $c->res->output( 'default' );\r
  30 }\r
  31 \r
  32 sub subtest : Local {\r
  33     my ( $self, $c ) = @_;\r
  34 \r
  35     $c->res->output( $c->subreq('/subtest2') );\r
  36 }\r
  37 \r
  38 sub subtest2 : Local {\r
  39     my ( $self, $c ) = @_;\r
  40     \r
  41     $c->res->output( 'subtest2 ok' );\r
  42 }\r
  43 \r
  44 1;\r