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
32
33
34
35
36
37
38
|
package TestMiddleware;
use Moose;
use Plack::Middleware::Static;
use Plack::App::File;
use Catalyst;
extends 'Catalyst';
my $static = Plack::Middleware::Static->new(
path => qr{^/static/}, root => TestMiddleware->path_to('share'));
__PACKAGE__->config(
'Controller::Root', { namespace => '' },
'psgi_middleware', [
'Head',
$static,
'Static', { path => qr{^/static2/}, root => TestMiddleware->path_to('share') },
'Runtime',
'+TestMiddleware::Custom', { path => qr{^/static3/}, root => TestMiddleware->path_to('share') },
sub {
my $app = shift;
return sub {
my $env = shift;
if($env->{PATH_INFO} =~m/forced/) {
Plack::App::File->new(file=>TestMiddleware->path_to(qw/share static forced.txt/))
->call($env);
} else {
return $app->($env);
}
},
},
],
);
__PACKAGE__->setup;
|
