diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-10-03 18:36:06 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-10-03 18:36:06 -0500 |
commit | d28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f (patch) | |
tree | b43a120c4058cd4560437899035d4b670037a610 /lib/Text/Xslate | |
parent | 6b7da8376218972db4d0a98a9e0220f9dc81dbd5 (diff) | |
download | text-handlebars-d28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f.tar.gz text-handlebars-d28fe9e9d3799aa5eb32801d8fa511e2bbdc5c6f.zip |
remove debugging code
Diffstat (limited to 'lib/Text/Xslate')
-rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 33 |
1 files changed, 0 insertions, 33 deletions
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; |