http://www.perlmonks.org?node_id=996508


in reply to Devel::Declare type syntactic sugar for DBI select bind_col param

But my thinking isn't clear, any ideas?

I guess you are looking for feedback on the design, not the implementation. So here are some thoughts:

Given these constraints, I'd propose something along the lines of

$dbh->SELECT(':$name, :$email, :$duration(from - to) FROM table WHERE +duration > $min_duration' { say "$name <$email> has spent $duration days here"; }

Which would desugar to something like

$dbh->prepare('SELECT name, email, from - to AS duration FROM table WH +ERE duration > ?'); $dbh->bind_columns(\my ($name, $email, $duration); $dbh->execute($min_duration); while ($sth->fetch) { say "$name <$email> has spent $duration days here"; }

Maybe you also want to add another syntax for interpolating variables that are piped through $dbh->quote_identifer instead of placeholders, for when you need to interpolate the table name.