X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2Fconsole.pl;h=abb43860686a0cc91f93a332fc437c117e967467;hb=cf5b7ab163f8ac123ebc9bb1156e79646cd5bd2f;hp=61e5dee5a41960c5aa9fd48e7ac0ced7a3dea1f4;hpb=820bb1f5b8926c8c8c4c34ed99c057abfb8fe105;p=scpubgit%2FQ-Branch.git

diff --git a/examples/console.pl b/examples/console.pl
index 61e5dee..abb4386 100644
--- a/examples/console.pl
+++ b/examples/console.pl
@@ -1,5 +1,8 @@
 #!/sur/bin/env perl
 
+use warnings;
+use strict;
+
 use SQL::Abstract::Tree;
 
 my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' });
@@ -23,6 +26,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;