{ x => { -and => ... } } converted to op

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index b0b1af2..cc89eb6 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -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
         ] };