SQL::Composer - sql builder
my $expr = SQL::Composer::Expression->new(expr => \'a = b'); my $sql = $expr->to_sql; # 'a = b' my @bind = $expr->to_bind; # []
my $expr = SQL::Composer::Expression->new(expr => \['a = ?', 'b']); my $sql = $expr->to_sql; # 'a = ?' my @bind = $expr->to_bind; # 'b'
my $expr = SQL::Composer::Expression->new(expr => [a => 'b']); my $sql = $expr->to_sql; is $sql, '`a` = ?'; my @bind = $expr->to_bind; is_deeply \@bind, ['b'];
my $expr = SQL::Composer::Expression->new(expr => [a => {'>' => 'b'}]); my $sql = $expr->to_sql; is $sql, '`a` > ?'; my @bind = $expr->to_bind; is_deeply \@bind, ['b'];
my $expr = SQL::Composer::Expression->new(expr => [a => {'-col' => 'b'}]); my $sql = $expr->to_sql; is $sql, '`a` = `b`'; my @bind = $expr->to_bind; is_deeply \@bind, [];
my $expr = SQL::Composer::Expression->new( expr => [-or => [a => 'b', -and => [c => 'd', 'e' => 'f']]]); my $sql = $expr->to_sql; # '(`a` = ? OR (`c` = ? AND `e` = ?))' my @bind = $expr->to_bind; # ['b', 'd', 'f']
IN
my $expr = SQL::Composer::Expression->new(expr => [a => ['b', 'c', 'd']]); my $sql = $expr->to_sql; # '`a` IN (?,?,?)' my @bind = $expr->to_bind; # ['b', 'c', 'd']
To install SQL::Composer, copy and paste the appropriate command in to your terminal.
cpanm
cpanm SQL::Composer
CPAN shell
perl -MCPAN -e shell install SQL::Composer
For more information on module installation, please visit the detailed CPAN module installation guide.