package TestApp;
use strict;
use Catalyst;
use File::Spec::Functions;
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' ];
}
sub default : Private {
my ( $self, $c ) = @_;
$c->res->output( 'default' );
}
sub subtest : Local {
my ( $self, $c ) = @_;
$c->res->output( $c->subreq('/subtest2') );
}
sub subtest2 : Local {
my ( $self, $c ) = @_;
$c->res->output( 'subtest2 ok' );
}
sub serve_static : Local {
my ( $self, $c ) = @_;
my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );
$c->serve_static_file( $file );
}
sub serve_static_404 : Local {
my ( $self, $c ) = @_;
my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );
$c->serve_static_file( $file );
}
1;