From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 19 Sep 2019 17:00:19 +0000 (+0000)
Subject: I need these every time I debug it so might as well leave them as comments
X-Git-Tag: v2.000000~3^2~142
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b0bc0ac4fca472c969fe654e9a4432d135f3d98;p=dbsrgits%2FSQL-Abstract.git

I need these every time I debug it so might as well leave them as comments
---

diff --git a/lib/SQL/Abstract/Formatter.pm b/lib/SQL/Abstract/Formatter.pm
index 51645f8..0f0daf3 100644
--- a/lib/SQL/Abstract/Formatter.pm
+++ b/lib/SQL/Abstract/Formatter.pm
@@ -40,6 +40,7 @@ sub _fold_sql {
   my $line_proto = $indent.$nl_post;
   PART: foreach my $idx (0..$#parts) {
     my $p = $parts[$idx];
+#::DwarnT STARTPART => $p, \@res, $line, $line_orig;
     my $pre = ($line ne $line_orig ? $join : '');
     my $j_part = $pre.(my $j = ref($p) ? $self->_join(@$p) : $p);
     if (length($j_part) + length($line) + $join_len <= $w) {
@@ -70,6 +71,8 @@ sub _fold_sql {
     $folded =~ s/\n\Z//;
     push @res, $folded.($idx == $#parts ? '' : $nl_pre)."\n";
     $line_orig = $line = $idx == $#parts ? '' : $line_proto;
+  } continue {
+#::DwarnT ENDPART => $parts[$idx], \@res, $line, $line_orig;
   }
   return join '', @res, $line;
 }