Commit | Line | Data |
e37ad815 |
1 | package TestApp;\r |
2 | \r |
3 | use strict;\r |
4 | use Catalyst;\r |
ab02ca0d |
5 | use FindBin;\r |
e37ad815 |
6 | \r |
7 | our $VERSION = '0.01';\r |
8 | \r |
9 | TestApp->config(\r |
10 | name => 'TestApp',\r |
ab02ca0d |
11 | debug => 1,\r |
e37ad815 |
12 | );\r |
13 | \r |
8cc672a2 |
14 | my @plugins = qw/Static::Simple/;\r |
82239955 |
15 | \r |
16 | # load the SubRequest plugin if available\r |
d62f3c98 |
17 | eval { \r |
18 | require Catalyst::Plugin::SubRequest; \r |
19 | die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';\r |
20 | };\r |
82239955 |
21 | push @plugins, 'SubRequest' unless ($@);\r |
22 | \r |
23 | TestApp->setup( @plugins );\r |
e37ad815 |
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 |
e37ad815 |
31 | 1;\r |