为什么 Perl 的 DBIx::Class $resultset->update 在复杂的搜索查询上失败？

Question

我有一个 Perl DBIx::Class 搜索，看起来像这样：

my $rs = shift->search( {
      -and => [
            { 'for_revocation' => 1 },
            [
                { 
                     status => { 
                        'not_in' => [ 'revoked', 'revoking'] 
                    },
                },
                {   
                    status => 'revoking',
                    updated => { 
                        '<' => \'now() - interval 1 hour' 
                    }
                },
            ]
        ]
    });

然后我就这样做了..

$rs->update({ status => 'revoked' });

但我收到错误...

DBI 异常：DBD::mysql::st 执行 失败：您的 SQL 中有错误 句法;检查手册 对应你的MySQL服务器 正确使用语法的版本 第 1 行“FOR REVOCATION '1')”附近 [for 语句“更新 wmv_attempt SET 状态=？哪里（数组（0xadf93a8） 想要撤销？ )" 与 ParamValues： 0='撤销', 1=1] 在 (eval 20938) 第 1 行

如果我使用 $rs->as_query() 来获取用于执行搜索的 SQL，它看起来像这样：

SELECT .... FROM wmv_attempt me WHERE ( ( ( status NOT IN ( ?, ? ) OR ( status = ? AND 
updated < now() - interval 1 hour ) ) AND for_revocation = ? ) )

效果很好。

似乎当它对结果集执行 update() 时，它无法正确创建 WHERE 子句。

我怀疑这是一个错误。

谁能建议我可能做错的事情或替代方法？

谢谢，汤姆