blob: 9e05a05508d72bf3b86532f4ed0152a5924513fe (
plain) (
blame)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
package Plack::Middleware::Xslate;
use strict;
use warnings;
use base 'Plack::Middleware::Static';
use Plack::Util::Accessor 'xslate_args', 'xslate_vars';
use Text::Xslate;
sub prepare_app {
my $self = shift;
$self->{file} = Plack::App::File::Xslate->new({ root => $self->root || '.', encoding => $self->encoding, xslate_args => $self->xslate_args, xslate_vars => $self->xslate_vars });
$self->{file}->prepare_app;
}
# XXX copied and pasted from Plack::Middleware::Static just so i can override
# with Plack::App::File::Xslate instead of Plack::App::File - submit a patch
# upstream to make this more configurable
sub _handle_static {
my($self, $env) = @_;
my $path_match = $self->path or return;
my $path = $env->{PATH_INFO};
for ($path) {
my $matched = 'CODE' eq ref $path_match ? $path_match->($_) : $_ =~ $path_match;
return unless $matched;
}
local $env->{PATH_INFO} = $path; # rewrite PATH
return $self->{file}->call($env);
}
package # hide from PAUSE
Plack::App::File::Xslate;
use strict;
use warnings;
use base 'Plack::App::File';
use Plack::Util::Accessor 'xslate_args', 'xslate_vars';
use File::Spec;
use Cwd 'cwd';
sub prepare_app {
my $self = shift;
$self->SUPER::prepare_app(@_);
$self->content_type('text/html');
$self->xslate_args({
%{ $self->xslate_args || {} },
path => [ $self->root ],
});
$self->{xslate} = Text::Xslate->new($self->xslate_args || ());
}
sub serve_path {
my $self = shift;
my ($env, $file) = @_;
my $res = $self->SUPER::serve_path(@_);
my $filename = $res->[2]->path;
if (File::Spec->file_name_is_absolute($filename)) {
$filename = File::Spec->abs2rel($filename, $self->root);
}
my $rendered = $self->{xslate}->render($filename, $self->xslate_vars);
$res->[2] = [ $rendered ];
return $res;
}
1;
|