implement ../

2 files changed, 23 insertions, 1 deletions

diff --git a/lib/Text/Handlebars.pm b/lib/Text/Handlebars.pm
index aa239a0..c58ae86 100644
--- a/lib/Text/Handlebars.pm
+++ b/lib/Text/Handlebars.pm
@@ -4,6 +4,8 @@ use warnings;
 
 use base 'Text::Xslate';
 
+use Scalar::Util 'weaken';
+
 sub default_functions {
     my $class = shift;
     return {
@@ -35,7 +37,11 @@ sub default_functions {
                 die "invalid value: $value"
                     if !defined($ref) || $ref ne 'HASH';
 
-                return $value;
+                weaken(my $vars_copy = $vars);
+                return {
+                    %$value,
+                    '..' => $vars_copy,
+                };
             }
             else {
                 return $vars;
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm
index 3537952..9bd1366 100644
--- a/lib/Text/Xslate/Syntax/Handlebars.pm
+++ b/lib/Text/Xslate/Syntax/Handlebars.pm
@@ -148,6 +148,7 @@ sub init_symbols {
     $self->prefix('/', 0)->is_block_end(1);
 
     $self->prefix('&', 0)->set_nud($self->can('nud_mark_raw'));
+    $self->prefix('..', 0)->set_nud($self->can('nud_uplevel'));
 }
 
 sub nud_name {
@@ -290,6 +291,13 @@ sub nud_mark_raw {
     return $self->call('mark_raw', $self->expression(0));
 }
 
+sub nud_uplevel {
+    my $self = shift;
+    my ($symbol) = @_;
+
+    return $symbol->clone(arity => 'variable');
+}
+
 sub make_field_lookup {
     my $self = shift;
     my ($var, $field, $dot) = @_;
@@ -307,6 +315,14 @@ sub make_field_lookup {
     );
 }
 
+sub is_valid_field {
+    my $self = shift;
+    my ($field) = @_;
+
+    return 1 if $field->id eq '..';
+    return $self->SUPER::is_valid_field(@_);
+}
+
 sub make_ternary {
     my $self = shift;
     my ($if, $then, $else) = @_;