use warnings;
use Test::More;
use SQL::Abstract::Test import => [ qw(is_same_sql_bind is_same_sql) ];
+use SQL::Abstract;
use SQL::Abstract::ExtraClauses;
-my $sqlac = SQL::Abstract::ExtraClauses->new(
- unknown_unop_always_func => 1,
- lazy_join_sql_parts => 1,
-);
+my $sqlac = SQL::Abstract->new;
+
+SQL::Abstract::ExtraClauses->apply_to($sqlac);
is_deeply(
[ $sqlac->statement_list ],
having => { '>' => [ { -count => 'cd.id' }, 3 ] }
});
-::Dwarn([ $sql->formatter->_simplify($sql->to_array), $sql->stringify ]);
-
is_same_sql_bind(
$sql, \@bind,
q{
)]
);
-
-
done_testing;