chiark / gitweb /
Remove debug imports, tail recursion in root-level parser routines
authorJeff Ober <jober@ziprecruiter.com>
Wed, 8 Jan 2020 18:06:58 +0000 (13:06 -0500)
committerJeff Ober <jober@ziprecruiter.com>
Wed, 8 Jan 2020 18:06:58 +0000 (13:06 -0500)
lib/TOML/Tiny/Parser.pm
lib/TOML/Tiny/Tokenizer.pm

index 04fc83560c4671d7207b455049d570e1541bb429..d99c90d410c9ef3389631ac7f42ad6dea096b0ff 100644 (file)
@@ -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{
index cc4c150caa4ccb8ab9dde5924c6f9b8a6d327ee5..08d1eff799701fa28ea3d9d473ca94c0dd3f382a 100644 (file)
@@ -5,7 +5,6 @@ use warnings;
 use feature qw(say switch);
 no warnings qw(experimental);
 
-use DDP;
 use Carp;
 use TOML::Tiny::Grammar;