& for mark_raw

2 files changed, 67 insertions, 0 deletions

diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm
index ab46d52..3537952 100644
--- a/lib/Text/Xslate/Syntax/Handlebars.pm
+++ b/lib/Text/Xslate/Syntax/Handlebars.pm
@@ -146,6 +146,8 @@ sub init_symbols {
     $self->symbol('#')->set_std($self->can('std_block'));
     $self->symbol('^')->set_std($self->can('std_block'));
     $self->prefix('/', 0)->is_block_end(1);
+
+    $self->prefix('&', 0)->set_nud($self->can('nud_mark_raw'));
 }
 
 sub nud_name {
@@ -281,6 +283,13 @@ sub std_block {
     );
 }
 
+sub nud_mark_raw {
+    my $self = shift;
+    my ($symbol) = @_;
+
+    return $self->call('mark_raw', $self->expression(0));
+}
+
 sub make_field_lookup {
     my $self = shift;
     my ($var, $field, $dot) = @_;
diff --git a/t/mustache-extra.t b/t/mustache-extra.t
new file mode 100644
index 0000000..ac28498
--- /dev/null
+++ b/t/mustache-extra.t
@@ -0,0 +1,58 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Fatal;
+
+use Text::Handlebars;
+
+render_ok(
+    <<'TEMPLATE',
+* {{name}}
+* {{age}}
+* {{company}}
+* {{& company}}
+TEMPLATE
+    {
+        name    => 'Chris',
+        company => '<b>GitHub</b>',
+    },
+    <<'RENDERED',
+* Chris
+* 
+* &lt;b&gt;GitHub&lt;/b&gt;
+* <b>GitHub</b>
+RENDERED
+    "& for make_raw"
+);
+
+sub render_ok {
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    return _render_ok('render_string', @_);
+}
+
+sub render_file_ok {
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    return _render_ok('render', @_);
+}
+
+sub _render_ok {
+    my $render_method = shift;
+    my $opts = ref($_[0]) && ref($_[0]) eq 'HASH' ? shift : {};
+    my ($template, $env, $expected, $desc) = @_;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+    my $tx = Text::Handlebars->new(%$opts);
+
+    my $exception = exception {
+        is($tx->$render_method($template, $env), $expected, $desc);
+    };
+    fail("$desc (threw an exception)") if $exception;
+    is(
+        $exception,
+        undef,
+        "no exceptions for $desc"
+    );
+}
+
+done_testing;