#!/usr/bin/env perl
use warnings;
use strict;

# Version "one":
#use SQL_DSL qw/SQL WHERE/;
# Version "two":
#use SQL_DSL_Keyword;
# Version "three":
#use SQL_DSL 'SQL';
#use Filter::PPI::Transform 'SQL_DSL_Transform';

my $x = '%abc%';
SQL {
	WHERE { print "Where: ",__PACKAGE__, "\n"; b LIKE $x };
};
WHERE {}; # dies b/c not in SQL { ... }