From 3925504e1390c02950110e92a8581e9670aac054 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 14 Oct 2012 14:46:44 -0500
Subject: is_code_ref can now be an opcode too

---
 lib/Text/Handlebars/Compiler.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'lib/Text/Handlebars/Compiler.pm')

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) = @_;
-- 
cgit v1.2.3-54-g00ecf