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
|
package Spreadsheet::Template::Processor::Xslate;
use Moose;
# ABSTRACT: preprocess templates with Xslate
use Text::Xslate;
with 'Spreadsheet::Template::Processor';
=head1 SYNOPSIS
my $template = Spreadsheet::Template->new(
processor_class => 'Spreadsheet::Template::Processor::Xslate',
processor_options => {
syntax => 'TTerse'
},
);
=head1 DESCRIPTION
This class implements L<Spreadsheet::Template::Processor> to run the template
data through L<Text::Xslate>. In addition to allowing you to use the provided
variables, it also provides some convenience macros to use when writing your
templates:
=over 4
=item format($name, $options)
Declares a named format, which can be used with the C<c> helper. C<$name> is
the name to use for the format, and C<$options> is a hashref to use as the
value for the C<format> entry in the cell.
=item c($contents, $format, $type, %args)
Returns the representation of a cell. C<$contents> is the cell contents,
C<$format> is either the name of a format declared with the C<format> helper,
or a hashref of format options, C<$type> is either C<"string">, C<"number">, or
C<"date_time">, and C<%args> contains any other parameters (such as C<formula>,
for instance) to declare for the cell. C<$type> is optional, and if not passed,
defaults to C<"string">.
=item true
Returns C<JSON::true>.
=item false
Returns C<JSON::false>.
=back
=cut
=attr syntax
Which Xslate syntax engine to use. Defaults to C<Metakolon>.
=cut
has syntax => (
is => 'ro',
isa => 'Str',
default => 'Metakolon',
);
has xslate => (
is => 'ro',
isa => 'Text::Xslate',
lazy => 1,
default => sub {
my $self = shift;
return Text::Xslate->new(
type => 'text',
syntax => $self->syntax,
module => ['Spreadsheet::Template::Helpers::Xslate'],
);
},
);
sub process {
my $self = shift;
my ($contents, $vars) = @_;
return $self->xslate->render_string($contents, $vars);
}
__PACKAGE__->meta->make_immutable;
no Moose;
=begin Pod::Coverage
process
=end Pod::Coverage
=cut
1;
|
