{ x => { -and => ... } } converted to op
Matt S Trout [Mon, 17 Sep 2018 00:07:25 +0000 (00:07 +0000)]
lib/SQL/Abstract.pm

index 05a1d4c..3341a95 100644 (file)
@@ -775,7 +775,8 @@ sub _expand_expr_hashpair {
     }
     if ($vk =~ /^(and|or)$/) {
       if (ref($vv) eq 'HASH') {
-        return +{ "-${vk}" => [
+        return +{ -op => [
+          $vk,
           map $self->_expand_expr_hashpair($k, { $_ => $vv->{$_} }),
             sort keys %$vv
         ] };