simplify unop_postfix code
Matt S Trout [Thu, 21 Mar 2019 04:12:54 +0000 (04:12 +0000)]
lib/SQL/Abstract.pm

index 99a2ce9..4d121f5 100644 (file)
@@ -1082,9 +1082,7 @@ sub _render_op {
 
 sub _render_unop_postfix {
   my ($self, $op, $v) = @_;
-  my ($arg, @argh) = @$v;
-  puke "Argh" if @argh;
-  my ($expr_sql, @bind) = $self->render_aqt($arg);
+  my ($expr_sql, @bind) = $self->render_aqt($v->[0]);
   my $op_sql = $self->_sqlcase($op);
   return ($expr_sql.' '.$op_sql, @bind);
 }