From 120390e0c9e453e12737345160b31c5934e295aa Mon Sep 17 00:00:00 2001 From: Jeff Ober Date: Wed, 8 Jan 2020 13:06:58 -0500 Subject: [PATCH] Remove debug imports, tail recursion in root-level parser routines --- lib/TOML/Tiny/Parser.pm | 12 ++++++++---- lib/TOML/Tiny/Tokenizer.pm | 1 - 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lib/TOML/Tiny/Parser.pm b/lib/TOML/Tiny/Parser.pm index 04fc835..d99c90d 100644 --- a/lib/TOML/Tiny/Parser.pm +++ b/lib/TOML/Tiny/Parser.pm @@ -126,12 +126,14 @@ sub parse_table { when (/array_table/) { $self->pop_keys; - $self->parse_array_table($token); + @_ = ($self, $token); + goto \&parse_array_table; } when (/table/) { $self->pop_keys; - $self->parse_table($token); + @_ = ($self, $token); + goto \&parse_table; } default{ @@ -164,12 +166,14 @@ sub parse_array_table { when (/array_table/) { $self->pop_keys; - $self->parse_array_table($token); + @_ = ($self, $token); + goto \&parse_array_table; } when (/table/) { $self->pop_keys; - $self->parse_table($token); + @_ = ($self, $token); + goto \&parse_table; } default{ diff --git a/lib/TOML/Tiny/Tokenizer.pm b/lib/TOML/Tiny/Tokenizer.pm index cc4c150..08d1eff 100644 --- a/lib/TOML/Tiny/Tokenizer.pm +++ b/lib/TOML/Tiny/Tokenizer.pm @@ -5,7 +5,6 @@ use warnings; use feature qw(say switch); no warnings qw(experimental); -use DDP; use Carp; use TOML::Tiny::Grammar; -- 2.30.2