perl - DBIx::Class::ResultSet 问题

Question

我有以下代码:

package MyPackage::ResultSet::Case;
use base 'DBIx::Class::ResultSet';

sub cases_last_fourteen_days {
    my ($self, $username) = @_; 

    return $self->search({
                username    => $username,
                date        => { '>=' => 'DATE_SUB(CURDATE(),INTERVAL 14 DAY)' },
    }); 
};

但是当我尝试以这种方式使用它时:

$schema->resultset('Case')->cases_last_fourteen_days($username)

我总是得到零结果，谁能告诉我做错了什么？

谢谢!

Answer 1

您使用 SQL::Abstract 条件的方式将导致以下 where 条件:

WHERE username = ? AND date >= 'DATE_SUB(CURDATE(),INTERVAL 14 DAY)'

当您希望在 where 子句中使用数据库函数时，您需要使用 a reference to a scalar ， 像这样:

date        => { '>=' => \'DATE_SUB(CURDATE(),INTERVAL 14 DAY)' },

专业提示 : 如果你设置了环境变量 DBIC_TRACE到 1，DBIx::Class 会将它生成的查询打印到 STDERR ......这样你就可以检查它是否真的按照你的意愿行事。