From 813512b43e411bb8657ecc3f9715943afff07b37 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 4 Oct 2012 17:39:32 -0500
Subject: refactor this so that helpers are just normal functions

---
 lib/Text/Handlebars.pm               | 22 +++++++++-------------
 lib/Text/Xslate/Syntax/Handlebars.pm | 12 ++++++++----
 2 files changed, 17 insertions(+), 17 deletions(-)

(limited to 'lib')

diff --git a/lib/Text/Handlebars.pm b/lib/Text/Handlebars.pm
index 471d2f0..11de467 100644
--- a/lib/Text/Handlebars.pm
+++ b/lib/Text/Handlebars.pm
@@ -64,7 +64,6 @@ sub options {
     my $options = $class->SUPER::options(@_);
 
     $options->{compiler} = 'Text::Handlebars::Compiler';
-    $options->{helpers}  = {};
 
     return $options;
 }
@@ -88,19 +87,16 @@ sub _register_builtin_methods {
         return 1 if try { $weakself->find_file($filename); 1 };
         return 0;
     };
+    $funcs->{'(run_block_helper)'} = sub {
+        my ($code, $raw_text, $vars, @args) = @_;
 
-    for my $helper (keys %{ $self->{helpers} }) {
-        my $code = $self->{helpers}{$helper};
-        $funcs->{$helper} = sub {
-            my ($raw_text, $vars, @args) = @_;
-            my $recurse = sub {
-                my ($new_vars) = @_;
-                return $weakself->render_string($raw_text, $new_vars);
-            };
-
-            return $code->($vars, @args, { fn => $recurse });
-        }
-    }
+        my $recurse = sub {
+            my ($new_vars) = @_;
+            return $weakself->render_string($raw_text, $new_vars);
+        };
+
+        return $code->($vars, @args, { fn => $recurse });
+    };
 }
 
 1;
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm
index d99f3d0..69a20c6 100644
--- a/lib/Text/Xslate/Syntax/Handlebars.pm
+++ b/lib/Text/Xslate/Syntax/Handlebars.pm
@@ -350,11 +350,15 @@ 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(
+            $self->call(
+                '(run_block_helper)',
+                $self->symbol($name->first->id)->clone,
+                $raw_text->clone,
+                $self->symbol('(vars)')->clone(arity => 'vars'),
+                @{ $name->second },
+            ),
         );
-        return $self->print_raw($name);
     }
 
     my $iterations = $inverted
-- 
cgit v1.2.3-54-g00ecf