From c4fd3dc97042a13cf365f06dd84bb6b02a1efdfb Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 4 Oct 2012 16:06:38 -0500
Subject: implement helpers

---
 lib/Text/Xslate/Syntax/Handlebars.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib/Text/Xslate/Syntax/Handlebars.pm')

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),
-- 
cgit v1.2.3-54-g00ecf