diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-10-03 16:20:14 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-10-03 16:20:14 -0500 |
commit | 8d8d169d9e30784474856a9b43c43cf21a3d6a91 (patch) | |
tree | a96a6c6900dd9732e97230d626256a3e6f7b1a94 /lib/Text/Handlebars.pm | |
parent | b6b1bd1936ea207c74ecf0993bd3b7c55c71ec57 (diff) | |
download | text-handlebars-8d8d169d9e30784474856a9b43c43cf21a3d6a91.tar.gz text-handlebars-8d8d169d9e30784474856a9b43c43cf21a3d6a91.zip |
make section lambdas work
Diffstat (limited to 'lib/Text/Handlebars.pm')
-rw-r--r-- | lib/Text/Handlebars.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Text/Handlebars.pm b/lib/Text/Handlebars.pm index fa9e32c..c9a2e18 100644 --- a/lib/Text/Handlebars.pm +++ b/lib/Text/Handlebars.pm @@ -72,8 +72,11 @@ sub _register_builtin_methods { weaken(my $weakself = $self); $funcs->{'(run_code)'} = sub { - my ($code, $vars) = @_; - return $self->render_string($code->(), $vars); + my ($code, $vars, $open_tag, $close_tag, @args) = @_; + my $to_render = $code->(@args); + $to_render = "{{= $open_tag $close_tag =}}$to_render" + if defined($open_tag) && defined($close_tag) && $close_tag ne '}}'; + return $self->render_string($to_render, $vars); }; } |