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
|
package Text::Handlebars::Compiler;
use Any::Moose;
extends 'Text::Xslate::Compiler';
use Try::Tiny;
has '+syntax' => (
default => 'Handlebars',
);
sub define_helper { shift->parser->define_helper(@_) }
sub _generate_block {
my $self = shift;
my ($node) = @_;
my @compiled = map { $self->compile_ast($_) } @{ $node->second };
unshift @compiled, $self->_localize_vars($node->first)
if $node->first;
return @compiled;
}
sub _generate_key {
my $self = shift;
my ($node) = @_;
my $var = $node->clone(arity => 'variable');
return $self->compile_ast($self->_check_lambda($var));
}
sub _generate_key_field {
my $self = shift;
my ($node) = @_;
my $field = $node->clone(arity => 'field');
return $self->compile_ast($self->_check_lambda($field));
}
sub _check_lambda {
my $self = shift;
my ($var) = @_;
my $parser = $self->parser;
my $is_code = $parser->symbol('(name)')->clone(
arity => 'name',
id => '(is_code)',
line => $var->line,
);
my $run_code = $parser->symbol('(name)')->clone(
arity => 'name',
id => '(run_code)',
line => $var->line,
);
return $parser->make_ternary(
$parser->call($is_code, $var->clone),
$parser->call(
$run_code,
$var->clone,
$parser->vars,
),
$var,
);
}
sub _generate_include {
my $self = shift;
my ($node) = @_;
my $file = $node->first;
$file->id($file->id . $self->engine->{suffix})
unless try { $self->engine->find_file($file->id); 1 };
return $self->SUPER::_generate_include($node);
}
__PACKAGE__->meta->make_immutable;
no Any::Moose;
1;
|