summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-10-03 18:36:06 -0500
committerJesse Luehrs <doy@tozt.net>2012-10-03 18:36:06 -0500
commitd28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f (patch)
treeb43a120c4058cd4560437899035d4b670037a610
parent6b7da8376218972db4d0a98a9e0220f9dc81dbd5 (diff)
downloadtext-handlebars-d28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f.tar.gz
text-handlebars-d28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f.zip
remove debugging code
-rw-r--r--lib/Text/Handlebars/Compiler.pm15
-rw-r--r--lib/Text/Xslate/Syntax/Handlebars.pm33
2 files changed, 0 insertions, 48 deletions
diff --git a/lib/Text/Handlebars/Compiler.pm b/lib/Text/Handlebars/Compiler.pm
index 2fc7422..ae1738b 100644
--- a/lib/Text/Handlebars/Compiler.pm
+++ b/lib/Text/Handlebars/Compiler.pm
@@ -31,21 +31,6 @@ sub _generate_include {
return $self->SUPER::_generate_include($node);
}
-if (0) {
- our $_recursing;
- around compile_ast => sub {
- my $orig = shift;
- my $self = shift;
-
- my @ast = do {
- local $_recursing = 1;
- $self->$orig(@_);
- };
- use Data::Dump; ddx(\@ast) unless $_recursing;
- return @ast;
- };
-}
-
__PACKAGE__->meta->make_immutable;
no Any::Moose;
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm
index 1be7dff..c857a47 100644
--- a/lib/Text/Xslate/Syntax/Handlebars.pm
+++ b/lib/Text/Xslate/Syntax/Handlebars.pm
@@ -474,39 +474,6 @@ sub print_raw {
return $self->print(@_)->clone(id => 'print_raw');
}
-if (0) {
- require Devel::STDERR::Indent;
- my @stack;
- for my $method (qw(statements statement expression_list expression)) {
- before $method => sub {
- warn "entering $method";
- push @stack, Devel::STDERR::Indent::indent();
- };
- after $method => sub {
- pop @stack;
- warn "leaving $method";
- };
- }
- after advance => sub {
- my $self = shift;
- warn $self->token->id;
- };
- around parse => sub {
- my $orig = shift;
- my $self = shift;
- my $ast = $self->$orig(@_);
- use Data::Dump; ddx($ast);
- return $ast;
- };
- around preprocess => sub {
- my $orig = shift;
- my $self = shift;
- my $code = $self->$orig(@_);
- warn $code;
- return $code;
- };
-}
-
__PACKAGE__->meta->make_immutable;
no Any::Moose;