From: Ash Berlin <ash_github@firemirror.com>
Date: Fri, 3 Apr 2009 19:15:15 +0000 (+0100)
Subject: Add comments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49cc8cb6cf0cfd10c6dfb7158af9f0656993a23b;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

Add comments
---

diff --git a/lib/SQL/Abstract/Compat.pm b/lib/SQL/Abstract/Compat.pm
index 40e42c8..e45f50f 100644
--- a/lib/SQL/Abstract/Compat.pm
+++ b/lib/SQL/Abstract/Compat.pm
@@ -113,6 +113,7 @@ class SQL::Abstract::Compat {
     croak "Unknown where clause type " . dump($ast);
   }
 
+  # Deals with where({ .... }) case
   method recurse_where_hash(LogicEnum $logic, HashRef $ast) returns (AST) {
     my @args;
     my $ret = {
@@ -143,6 +144,7 @@ class SQL::Abstract::Compat {
     return $ret;
   }
 
+  # Deals with where([ .... ]) case
   method recurse_where_array(LogicEnum $logic, ArrayRef $ast) returns (AST) {
     my @args;
     my $ret = {
@@ -175,6 +177,7 @@ class SQL::Abstract::Compat {
     return $ret;
   }
 
+  # { field => { .... } } case
   method field_hash(Str $key, HashRef $value) returns (AST) {
     my ($op, @rest) = keys %$value;