Split AND'ed or OR'ed clauses onto separate lines

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 519cae4..86d206c 100644 (file)
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -598,7 +598,11 @@ sub _unparse {
       )
     );
   }
-  elsif ($op eq 'AND' or $op eq 'OR' or $op =~ $binary_op_re ) {
+  elsif ($op eq 'AND' or $op eq 'OR') {
+    return ($self->newline||'') . join (" $op ". ($self->newline||''),
+        map  $self->indent($depth + 1) . $self->_unparse($_, $bindargs, $depth), @{$args});
+  }
+  elsif ($op =~ / ^ $binary_op_re $ /x ) {
     return join (" $op ", map $self->_unparse($_, $bindargs, $depth), @{$args});
   }
   elsif ($op eq '-LIST' ) {