From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Thu, 28 Oct 2010 04:24:49 +0000 (-0500)
Subject: Highlight HAVING
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2867f4f5a9d25a8ec48232720a1c40047bfa1e08;p=scpubgit%2FQ-Branch.git

Highlight HAVING
---

diff --git a/Changes b/Changes
index 65f990d..6c3be78 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for SQL::Abstract
 
     - Hide bulk inserts from DBIx::Class
     - Highlight transaction keywords
+    - Highlight HAVING
     - Add EXECUTING for clarity of long running SQL
     - Add "squash_repeats" option to fix it such that repeated SQL gets ellided
       except for placeholders
diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index e3eba08..5bfcc67 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -154,6 +154,7 @@ my %indents = (
    join          => 1,
    'left join'   => 1,
    on            => 2,
+   having        => 0,
    'group by'    => 0,
    'order by'    => 0,
    set           => 1,
@@ -212,6 +213,7 @@ my %profiles = (
               on                      => $blue,
 
               'group by'              => $yellow,
+              having                  => $yellow,
               'order by'              => $yellow,
 
               skip                    => $green,
@@ -254,6 +256,7 @@ my %profiles = (
          on            => ['<span class="on">'      , '</span>'],
 
          'group by'    => ['<span class="group-by">', '</span>'],
+         having        => ['<span class="having">',   '</span>'],
          'order by'    => ['<span class="order-by">', '</span>'],
 
          skip          => ['<span class="skip">',   '</span>'],