diff options
| -rw-r--r-- | lib/Text/Handlebars/Compiler.pm | 15 | ||||
| -rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 33 |
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; |