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 TestApp->setup( qw/Static::Simple/ );\r
  13 \r
  14 sub incpath_generator {\r
  15     my $c = shift;\r
  16     \r
  17     return [ $c->config->{root} . '/incpath' ];\r
  18 }\r
  19 \r
  20 sub default : Private {\r
  21     my ( $self, $c ) = @_;\r
  22     \r
  23     $c->res->output( 'default' );\r
  24 }\r
  25 \r
  26 1;\r