Querylet::Query is a Perl module that renders and performs queries for Querylet.
SYNOPSIS
use DBI;
my $dbh = DBI->connect('dbi:Pg:dbname=drinks');
use Querylet::Query;
# Why am I using this package? I'm a human, not Querylet!
my $q = new Querylet::Query;
$q->set_dbh($dbh);
$q->set_query("
SELECT *
FROM drinks d
WHERE abv > [% min_abv %]
AND ? IN (
SELECT liquor FROM ingredients WHERE i i.drink_id = d.drink_id
)
ORDER BY d.name
");
$q->set_query_vars({ min_abv => 25 });
$q->bind("rum");
$q->run;
$q->output_type('html');
$q->output;
Product's homepage
Requirements:
· Perl