diff options
Diffstat (limited to 'lib/Text/Handlebars/Compiler.pm')
| -rw-r--r-- | lib/Text/Handlebars/Compiler.pm | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lib/Text/Handlebars/Compiler.pm b/lib/Text/Handlebars/Compiler.pm index 0282fff..d2d6865 100644 --- a/lib/Text/Handlebars/Compiler.pm +++ b/lib/Text/Handlebars/Compiler.pm @@ -164,7 +164,7 @@ sub _generate_block { my $var = $name->clone(arity => 'variable'); return $self->compile_ast( $self->make_ternary( - $self->call($node, '(is_code)', $var->clone), + $self->is_code_ref($var->clone), $self->call( $node, '(run_code)', @@ -210,7 +210,7 @@ sub is_unary { my ($id) = @_; my %unary = ( - map { $_ => 1 } qw(builtin_is_array_ref) + map { $_ => 1 } qw(builtin_is_array_ref is_code_ref) ); return $unary{$id}; @@ -278,7 +278,7 @@ sub check_lambda { my ($var) = @_; return $self->make_ternary( - $self->call($var, '(is_code)', $var->clone), + $self->is_code_ref($var->clone), $self->call($var, '(run_code)', $var->clone, $self->vars), $var, ); @@ -295,6 +295,17 @@ sub is_array_ref { ); } +sub is_code_ref { + my $self = shift; + my ($var) = @_; + + return $self->parser->symbol('(is_code_ref)')->clone( + id => 'is_code_ref', + arity => 'unary', + first => $var, + ); +} + sub make_array { my $self = shift; my (@contents) = @_; |