今日の SQL::Abstract

SELECT * FROM hogehoge WHERE hoge_flags & 2 = 0; 

みたいのを作りたい場合、

use strict;
use warnings;

use Data::Dump qw(dump);
use SQL::Abstract;

my $sql = SQL::Abstract->new;
my ($stmt, @bind) = $sql->select("hogehoge", ["*"], +{ hoge_flags => \[ "& ? = ?", 2, 0 ] });

とかで出来る。

もうここまで来ると変な呪文みたいだ。