perl - 使用 DBIx::Class 中的占位符排序

Question

ORDER BY myfunction(col, ?, ?) DESC使用绑定值生成订单的正确方法是DBIx::Class什么？

目前我为此使用文字 SQL，但出于多种原因，这并不是最佳选择。

$rs->search(undef, { order_by => \"myfunction(col, $v1, $v2) DESC" });

Answer 1

像这样的东西：

$rs->search(
    undef,
    {
        '+columns' => [{
            'res' => {
                'func' => ['me.col', \['?' => $val1], \['?' => $val2]],
                '-as'  => 'res',
            },
        }],
        'order_by' => {'-desc' => 'res'},
    }
);

将生成（对于 MySQL & ($val1, $val2) = qw(val1 val2)）：

SELECT `me`.`id`, ..., FUNC( `me`.`col`, ?, ? ) AS `res`
    FROM `table` `me`
    ORDER BY `res` DESC:
'val1',
'val2'

Answer 2

我确实设法DBIx::Class生成正确的ORDER BY. 这是代码：

$rs->search(undef, {
    order_by => \[
        'myfunction(mycol, ?, ?) DESC', map [dummy => $_], $v1, $v2
    ]
});