From 4f6debfaaabcf04e5f67e9da71eb76abd39a8266 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 19 Oct 2012 00:37:11 -0500
Subject: simplify

---
 lib/Text/Handlebars/Compiler.pm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/lib/Text/Handlebars/Compiler.pm b/lib/Text/Handlebars/Compiler.pm
index 55913dc..57a746a 100644
--- a/lib/Text/Handlebars/Compiler.pm
+++ b/lib/Text/Handlebars/Compiler.pm
@@ -96,7 +96,7 @@ sub _generate_partial {
                     id    => 'include',
                     first => $lvar->clone,
                 ),
-                $self->parser->literal(''),
+                $self->literal(''),
             ),
         ),
     );
@@ -130,7 +130,7 @@ sub _generate_block {
                     $block{if}{raw_text}->clone,
                     ($block{else}
                         ? $block{else}{raw_text}->clone
-                        : $self->parser->literal('')),
+                        : $self->literal('')),
                 ),
                 is_block_helper => 1,
             ),
@@ -139,11 +139,11 @@ sub _generate_block {
 
     my $iterations = $self->make_ternary(
         $self->is_falsy($name->clone),
-        $self->make_array($self->parser->literal(1)),
+        $self->make_array($self->literal(1)),
         $self->make_ternary(
             $self->is_array_ref($name->clone),
             $name->clone,
-            $self->make_array($self->parser->literal(1)),
+            $self->make_array($self->literal(1)),
         ),
     );
 
@@ -252,7 +252,7 @@ sub _generate_run_code {
             $self->parser->symbol('==')->clone(
                 arity  => 'binary',
                 first  => $close_tag->clone,
-                second => $self->parser->literal('}}'),
+                second => $self->literal('}}'),
             ),
             $to_render,
             $self->join('{{= ', $open_tag, ' ', $close_tag, ' =}}', $to_render)
@@ -298,13 +298,13 @@ sub _generate_new_vars {
                     $self->is_hash_ref($value_at_index->clone),
                     $self->merge_hash(
                         $self->make_hash(
-                            $self->parser->literal('.'),
+                            $self->literal('.'),
                             $value_at_index->clone,
                         ),
                         $value_at_index->clone,
                     ),
                     $self->make_hash(
-                        $self->parser->literal('.'),
+                        $self->literal('.'),
                         $value_at_index->clone,
                     ),
                 ),
@@ -319,13 +319,13 @@ sub _generate_new_vars {
                 $self->is_hash_ref($lvar_value->clone),
                 $self->merge_hash(
                     $self->make_hash(
-                        $self->parser->literal('@index'),
+                        $self->literal('@index'),
                         $i->clone,
                     ),
                     $vars->clone,
                     $lvar_value->clone,
                     $self->make_hash(
-                        $self->parser->literal('..'),
+                        $self->literal('..'),
                         $vars->clone,
                     ),
                 ),
@@ -398,7 +398,7 @@ sub literalize {
     my ($val) = @_;
 
     return $val->clone if blessed($val);
-    return $self->parser->literal($val);
+    return $self->literal($val);
 }
 
 sub call {
@@ -596,6 +596,8 @@ sub merge_single_hash {
     );
 }
 
+sub literal { shift->parser->literal(@_) }
+
 __PACKAGE__->meta->make_immutable;
 no Any::Moose;
 
-- 
cgit v1.2.3