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