Split comma separated clauses onto multiple lines

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract / Tree.pm

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 86d206c..ed1b038 100644 (file)
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -606,7 +606,8 @@ sub _unparse {
     return join (" $op ", map $self->_unparse($_, $bindargs, $depth), @{$args});
   }
   elsif ($op eq '-LIST' ) {
-    return join (', ', map $self->_unparse($_, $bindargs, $depth), @{$args});
+    return ($self->newline||'') . join (', ' . ($self->newline||''),
+      map $self->indent($depth + 1) . $self->_unparse($_, $bindargs, $depth), @{$args});
   }
   elsif ($op eq '-MISC' ) {
     return join (' ', map $self->_unparse($_, $bindargs, $depth), @{$args});