Static::Simple 0.18

[catagits/Catalyst-Plugin-Static-Simple.git] / t / lib / TestApp.pm

package TestApp;\r
\r
use strict;\r
use Catalyst;\r
use File::Spec::Functions;\r
use FindBin;\r
\r
our $VERSION = '0.01';\r
\r
TestApp->config(\r
    name => 'TestApp',\r
    debug => 1,\r
);\r
\r
my @plugins = qw/Static::Simple/;\r
\r
# load the SubRequest plugin if available\r
eval { \r
    require Catalyst::Plugin::SubRequest; \r
    die unless Catalyst::Plugin::SubRequest->VERSION ge '0.08';\r
};\r
push @plugins, 'SubRequest' unless ($@);\r
\r
TestApp->setup( @plugins );\r
\r
sub incpath_generator {\r
    my $c = shift;\r
    \r
    return [ $c->config->{root} . '/incpath' ];\r
}\r
\r
sub default : Private {\r
    my ( $self, $c ) = @_;\r
    \r
    $c->res->output( 'default' );\r
}\r
\r
sub subtest : Local {\r
    my ( $self, $c ) = @_;\r
\r
    $c->res->output( $c->subreq('/subtest2') );\r
}\r
\r
sub subtest2 : Local {\r
    my ( $self, $c ) = @_;\r
    \r
    $c->res->output( 'subtest2 ok' );\r
}\r
\r
sub serve_static : Local {\r
    my ( $self, $c ) = @_;\r
    \r
    my $file = catfile( $FindBin::Bin, 'lib', 'TestApp.pm' );\r
    \r
    $c->serve_static_file( $file );\r
}\r
\r
sub serve_static_404 : Local {\r
    my ( $self, $c ) = @_;\r
    \r
    my $file = catfile( $FindBin::Bin, 'lib', 'foo.pm' );\r
    \r
    $c->serve_static_file( $file );\r
}\r
\r
1;\r