expand hashpair w/hash RHS
Matt S Trout [Sat, 8 Sep 2018 00:02:47 +0000 (00:02 +0000)]
lib/SQL/Abstract.pm

index de447fa..86e2060 100644 (file)
@@ -622,6 +622,12 @@ sub _expand_expr_hashpair {
         ]
       };
     }
+    if (ref($v) eq 'HASH' and keys %$v > 1) {
+      return { -and => [
+        map $self->_expand_expr_hashpair($k => { $_ => $v->{$_} }),
+          sort keys %$v
+      ] };
+    }
     if (ref($v) eq 'ARRAY') {
       return $self->{sqlfalse} unless @$v;
       $self->_debug("ARRAY($k) means distribute over elements");