clean things up and better sqlacexpr

diff --git a/lib/SQL/Abstract/Formatter.pm b/lib/SQL/Abstract/Formatter.pm
index b3c70ed..829b110 100644 (file)
--- a/lib/SQL/Abstract/Formatter.pm
+++ b/lib/SQL/Abstract/Formatter.pm
@@ -14,7 +14,6 @@ sub _join {
 
 sub format {
   my ($self, $join, @parts) = @_;
-::Dwarn [ J => $join => @parts ];
   my $sql = $self->_join($join, @parts);
   return $sql unless length($sql) > $self->max_width;
   local $self->{max_width} = $self->{max_width} - length($self->indent_by);

diff --git a/maint/sqlacexpr b/maint/sqlacexpr
index 827c808..a09ce2a 100755 (executable)
--- a/maint/sqlacexpr
+++ b/maint/sqlacexpr
@@ -17,4 +17,5 @@ my ($q, @bind) = $sqlac->${\$ARGV[0]}(@args);
 
 Dwarn [ Q => @$q ];
 
-Dwarn [ $q->format, @bind ];
+print STDERR $q->format."\n";
+Dwarn \@bind;