extract _hashpair_cmp for using default cmp
Matt S Trout [Tue, 26 Mar 2019 03:43:43 +0000 (03:43 +0000)]
lib/SQL/Abstract.pm

index 6741184..1811052 100644 (file)
@@ -212,8 +212,8 @@ sub new {
       my ($op) = $name =~ /^-(.*)$/;
       $opt{expand_op}{$op} = sub {
         my ($self, $op, $arg, $k) = @_;
-        return $self->_expand_expr_hashtriple(
-          $k, $self->{cmp}, { "-${op}" => $arg }
+        return $self->_expand_expr_hashpair_cmp(
+          $k, { "-${op}" => $arg }
         );
       };
     }
@@ -636,7 +636,7 @@ sub _expand_expr_hashpair_ident {
       and not defined $v->{-value}
     )
   ) {
-    return $self->_expand_expr_hashtriple($k => $self->{cmp} => undef);
+    return $self->_expand_expr_hashpair_cmp($k => undef);
   }
 
   # scalars and objects get expanded as whatever requested or values
@@ -744,6 +744,11 @@ sub _expand_expr_hashpair_op {
   die "notreached";
 }
 
+sub _expand_expr_hashpair_cmp {
+  my ($self, $k, $v) = @_;
+  $self->_expand_expr_hashtriple($k, $self->{cmp}, $v);
+}
+
 sub _expand_expr_hashtriple {
   my ($self, $k, $vk, $vv) = @_;