perl - Mysql 関数から DBIx::Class への変換

Question

関数を使用してこの mysql/select クエリを DBIx::Class に変換したいのですが、正しい方法で構築できません。

関数を使用したMysql /クエリ：

mysql> select * from sold_products 
       where date_sub(curdate(), interval 100 day) <= date;

DBIC_TRACE の結果クエリ:

SELECT me.fk_product, me.fk_customer, me.amount, me.quantity, me.date, me.pk_sold 
FROM sold_products me WHERE ( date > date_sub(curdate(), interval 100 day ):

PS DBIx はすでにアップグレードされています。

ありがとう、ルパン

Answer 1

DBIx クエリでは、ハッシュ キーを「>」ではなく「>=」にする必要があります。日付 => {'>='、whatever_here }? もう試しましたか？