migrate _parenthesis_unroll to SQL::Abstract::Tree

[dbsrgits/SQL-Abstract.git] / examples / console.pl

diff --git a/examples/console.pl b/examples/console.pl
index 61e5dee..277c5c2 100644 (file)
--- a/examples/console.pl
+++ b/examples/console.pl
@@ -23,6 +23,7 @@ my @sql = (
    'SAVEPOINT station',
    'ROLLBACK TO SAVEPOINT station',
    'RELEASE SAVEPOINT station',
+   "SELECT COUNT( * ) FROM message_children me WHERE( ( me.phone_number NOT IN ( SELECT message_child.phone_number FROM blocked_destinations me JOIN message_children_status reason ON reason.id = me.reason_id JOIN message_children message_child ON message_child.id = reason.message_child_id) AND ( ( me.api_id IS NULL ) ) ) )"
 );
 
 print "\n\n'" . $sqlat->format($_) . "'\n" for @sql;