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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
# Copyright (C) 2008-2010, Sebastian Riedel.
package Mojolicious::Plugin::EplRenderer;
use strict;
use warnings;
use base 'Mojolicious::Plugin';
use Mojo::Template;
# Clever things make people feel stupid and unexpected things make them feel
# scared.
sub register {
my ($self, $app) = @_;
# Add "epl" handler
$app->renderer->add_handler(
epl => sub {
my ($r, $c, $output, $options) = @_;
# Template
return unless my $t = $r->template_name($options);
return unless my $path = $r->template_path($options);
my $cache = delete $options->{cache} || $path;
# Reload
delete $r->{_epl_cache} if $ENV{MOJO_RELOAD};
# Check cache
$r->{_epl_cache} ||= {};
my $mt = $r->{_epl_cache}->{$cache};
# Interpret again
if ($mt && $mt->compiled) { $$output = $mt->interpret($c) }
# No cache
else {
# Initialize
$mt ||= Mojo::Template->new;
# Encoding
$mt->encoding($r->encoding) if $r->encoding;
# Try template
if (-r $path) { $$output = $mt->render_file($path, $c) }
# Try DATA section
elsif (my $d = $r->get_inline_template($c, $t)) {
$$output = $mt->render($d, $c);
}
# No template
else {
$c->app->log->error(
qq/Template "$t" missing or not readable./);
$c->render_not_found;
return;
}
# Cache
$r->{_epl_cache}->{$cache} = $mt;
}
# Exception
if (ref $$output) {
my $e = $$output;
$$output = '';
$c->app->log->error(qq/Template error in "$t": $e/);
$c->render_exception($e);
}
# Success or exception
return ref $$output ? 0 : 1;
}
);
}
1;
__END__
=head1 NAME
Mojolicious::Plugin::EplRenderer - EPL Renderer Plugin
=head1 SYNOPSIS
# Mojolicious
$self->plugin('epl_renderer');
# Mojolicious::Lite
plugin 'epl_renderer';
=head1 DESCRIPTION
L<Mojolicous::Plugin::EplRenderer> is a renderer for C<epl> templates.
C<epl> templates are pretty much just raw L<Mojo::Template>.
=head1 METHODS
L<Mojolicious::Plugin::EplRenderer> inherits all methods from
L<Mojolicious::Plugin> and implements the following new ones.
=head2 C<register>
$plugin->register;
Register renderer in L<Mojolicious> application.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
=cut
|
