diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Text/Handlebars.pm | 8 | ||||
-rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 16 |
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) = @_; |