diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-10-08 15:21:08 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-10-08 15:21:08 -0500 |
commit | 2fc8a855e6e6a8dc2d43f959e9c5ecd2ae9ea4c8 (patch) | |
tree | a184b9702409656a98ae3e0ff43eeab88f57c729 /lib/Text/Handlebars/Compiler.pm | |
parent | 0a45bee673aa48c56607eb7f5f06c7a4b6bbca03 (diff) | |
download | text-handlebars-2fc8a855e6e6a8dc2d43f959e9c5ecd2ae9ea4c8.tar.gz text-handlebars-2fc8a855e6e6a8dc2d43f959e9c5ecd2ae9ea4c8.zip |
check partial suffix at runtime, not compile time
Diffstat (limited to 'lib/Text/Handlebars/Compiler.pm')
-rw-r--r-- | lib/Text/Handlebars/Compiler.pm | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/lib/Text/Handlebars/Compiler.pm b/lib/Text/Handlebars/Compiler.pm index d4dd232..384732c 100644 --- a/lib/Text/Handlebars/Compiler.pm +++ b/lib/Text/Handlebars/Compiler.pm @@ -41,16 +41,6 @@ sub _generate_key_field { return $self->compile_ast($self->check_lambda($field)); } -sub _generate_include { - my $self = shift; - my ($node) = @_; - - my $file = $node->first; - $file->id($file->id . $self->engine->{suffix}) - unless try { $self->engine->find_file($file->id); 1 }; - return $self->SUPER::_generate_include($node); -} - sub _generate_call { my $self = shift; my ($node) = @_; @@ -93,12 +83,9 @@ sub _generate_partial { $node->clone( arity => 'include', id => 'include', - first => $node->first, - ), - $node->clone( - arity => 'literal', - id => '', + first => $self->call($node, '(find_file)', $node->first), ), + $self->parser->literal(''), ), ); } |