SQL::Abstract::Limit 在 OR 逻辑上失败

Question

我正在尝试使用 Class::DBI/Class::DBI::AbstractSearch。我的代码看起来像这样：

my $results = Example::CDBI::Quote->search_where(
    {   field_1 => {'like', $search_string},
        field_2 => {'like', $search_string}},
    {logic => 'or'}
);

根据 文档 这应该有效。它表示信息被传递到 SQL::Abstract::Limit，显示为采用 logic 参数。不幸的是，MySQL 在查询日志中显示以下内容（为简洁起见进行了编辑，并假设搜索“123”）：

SELECT * FROM quote WHERE ((field_1 LIKE '123' AND field_2 LIKE '123' ))

我尝试将 'or' 更改为 'OR' （愚蠢，但值得一试）这不起作用。我还尝试寻找 SQL::Abstract::Limit 中的逻辑，但该运算符被传递给 SQL::Abstract 。

如何让 SQL::Abstract::Limit 接受来自 Class::DBI 的 OR 逻辑？

Class::DBI 如何调用 SQL::Abstract::Limit
我能够确定 SQL::Abstract::Limit 是如何构建的。我用值代替变量名，这样更容易阅读。

my $sql = SQL::Abstract::Limit->new({'logic' => 'OR'});
my($phrase, @bind) = $sql->where(
    {'field_1'=>{'like' => '123'},'field_2'=>{'like'=>'123'}},
    undef, undef, undef);

Answer 1

您可以像这样在本地应用 OR：

use SQL::Abstract;

my $sql = SQL::Abstract->new;
my ($stmt, @bind) = $sql->where(
    { -or => [ { field_1 => { 'like', 'John' }},
               { field_2 => { 'like', 'John' }},
             ],
    }, []);

在 $stmt 中给出：

WHERE ( ( field_1 LIKE ? OR field_2 LIKE ? ) ) 

logic 属性可以在 SQL::Abstract 构造函数中设置，但我不这样做不知道如何从 Class::DBI 传播。

编辑：我不知道这是错误还是功能，但由 logic 子句更改的运算符似乎仅在使用 arrayrefs 定义时才适用。使用 hashrefs，您总是可以使用 AND：

my $sql_and = SQL::Abstract::Limit->new(logic => 'AND');
my $sql_or  = SQL::Abstract::Limit->new(logic => 'OR');

say $sql_and->where(['field_1'=>{'like' => '123'},'field_2'=>{'like'=>'123'}]);  
# WHERE ( ( field_1 LIKE ? AND field_2 LIKE ? ) )

say $sql_or->where (['field_1'=>{'like' => '123'},'field_2'=>{'like'=>'123'}]);  
# WHERE ( ( field_1 LIKE ? OR field_2 LIKE ? ) )

或者，使用 Class::DBI：

my $results = Example::CDBI::Quote->search_where(
    [   field_1 => {'like', $search_string},
        field_2 => {'like', $search_string}],
    {logic => 'or'}
);