},
# test column multi-cond in arrayref (even more useful)
{
+# todo => 'Clarify semantics in 1.52',
where => { x => { '!=' => [ -and => (1 .. 3) ] } },
stmt => 'WHERE x != ? AND x != ? AND x != ?',
bind => [1..3],
# the -or should affect only the inner hashref, as we are not in an outer arrayref
{
+# todo => 'Clarify semantics in 1.52',
where => { x => {
-or => { '!=', 1, '>=', 2 }, -like => 'x%'
}},
plan tests => @and_or_tests*3 + @numbered_mods*4;
for my $case (@and_or_tests) {
+ TODO: {
+ local $TODO = $case->{todo} if $case->{todo};
+
local $Data::Dumper::Terse = 1;
my @w;
});
is (@w, 0, 'No warnings within and-or tests')
|| diag join "\n", 'Emitted warnings:', @w;
+ }
}
my $w_str = "\QUse of [and|or|nest]_N modifiers is deprecated and will be removed in SQLA v2.0\E";