SQL::Interp example

sql_interp_example.pl

#!/usr/bin/env perl

use v5.14;
use warnings;

# develop mode
use Smart::Comments;
use Data::Printer;

 use SQL::Interp ':all';

my %item = (
  user     => 'Bar Bazz',
  password => '12345',
  login    => 'foo',
);

my ($sql, @bind) = sql_interp 'UPDATE table SET',  \%item, 'WHERE y <> ', \26, 'AND z IN', [3,4,5];

p($sql);
p(@bind);