diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-10-04 16:06:38 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-10-04 16:06:38 -0500 |
| commit | c4fd3dc97042a13cf365f06dd84bb6b02a1efdfb (patch) | |
| tree | e8ba2d8de7a46b673acca3e0819e95b317d2b65e /lib/Text/Xslate | |
| parent | 1f055d6a66f97020c2b8aac0837bb128d4c696f5 (diff) | |
| download | text-handlebars-c4fd3dc97042a13cf365f06dd84bb6b02a1efdfb.tar.gz text-handlebars-c4fd3dc97042a13cf365f06dd84bb6b02a1efdfb.zip | |
implement helpers
Diffstat (limited to 'lib/Text/Xslate')
| -rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm index ef0ee9c..63b93b6 100644 --- a/lib/Text/Xslate/Syntax/Handlebars.pm +++ b/lib/Text/Xslate/Syntax/Handlebars.pm @@ -311,7 +311,7 @@ sub std_block { $name = $name->third; } - if ($name->arity ne 'variable' && $name->arity ne 'field') { + if ($name->arity ne 'variable' && $name->arity ne 'field' && $name->arity ne 'call') { $self->_unexpected("opening block name", $self->token); } $self->advance(';'); @@ -332,7 +332,7 @@ sub std_block { $closing_name = $closing_name->third; } - if ($closing_name->arity ne 'variable' && $closing_name->arity ne 'field') { + if ($closing_name->arity ne 'variable' && $closing_name->arity ne 'field' && $closing_name->arity ne 'call') { $self->_unexpected("closing block name", $self->token); } if ($closing_name->id ne $name->id) { # XXX @@ -341,6 +341,14 @@ sub std_block { $self->advance(';'); + if ($name->arity eq 'call') { + unshift @{ $name->second }, ( + $raw_text->clone, + $self->symbol('(vars)')->clone(arity => 'vars'), + ); + return $self->print_raw($name); + } + my $iterations = $inverted ? ($self->make_ternary( $self->call('(is_array)', $name->clone), |