diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Text/Xslate/Syntax/Handlebars.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/lib/Text/Xslate/Syntax/Handlebars.pm b/lib/Text/Xslate/Syntax/Handlebars.pm index 4fb230c..40aba9b 100644 --- a/lib/Text/Xslate/Syntax/Handlebars.pm +++ b/lib/Text/Xslate/Syntax/Handlebars.pm @@ -175,6 +175,39 @@ sub led_dot { return $dot; } +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; |