t/lib/TestApp.pm

   1 package TestApp;\r
   2 \r
   3 use strict;\r
   4 use Catalyst;\r
   5 use FindBin;\r
   6 \r
   7 our $VERSION = '0.01';\r
   8 \r
   9 TestApp->config(\r
  10     name => 'TestApp',\r
  11     debug => 1,\r
  12 );\r
  13 \r
  14 my @plugins = qw/Static::Simple/;\r
  15 \r
  16 # load the SubRequest plugin if available\r
  17 eval { \r
  18     require Catalyst::Plugin::SubRequest; \r
  19     die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';\r
  20 };\r
  21 push @plugins, 'SubRequest' unless ($@);\r
  22 \r
  23 TestApp->setup( @plugins );\r
  24 \r
  25 sub incpath_generator {\r
  26     my $c = shift;\r
  27     \r
  28     return [ $c->config->{root} . '/incpath' ];\r
  29 }\r
  30 \r
  31 1;\r