diff options
| -rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm index c857a47..3c5af87 100644 --- a/lib/Text/Xslate/Syntax/Handlebars.pm +++ b/lib/Text/Xslate/Syntax/Handlebars.pm @@ -2,10 +2,12 @@ package Text::Xslate::Syntax::Handlebars; use Any::Moose; use Carp 'confess'; -use Text::Xslate::Util qw($STRING neat p); +use Text::Xslate::Util qw($DEBUG $STRING neat p); extends 'Text::Xslate::Parser'; +use constant _DUMP_PROTO => scalar($DEBUG =~ /\b dump=proto \b/xmsi); + my $nl = qr/\x0d?\x0a/; sub _build_identity_pattern { qr/[A-Za-z_][A-Za-z0-9_?]*/ } @@ -181,6 +183,7 @@ sub preprocess { } } + print STDOUT $code, "\n" if _DUMP_PROTO; return $code; } |