Select Code to Download

#!perl
use warnings;
...
}

1;

#!/usr/bin/env perl
use warnings;
...
    WHERE { print "Where: ",__PACKAGE__, "\n"; b LIKE $x };
};
WHERE {}; # dies b/c not in SQL { ... }

Exec SQL
Exec WHERE
Where: main
Exec LIKE::b (LIKE %abc%)
WHERE not in SQL block at ...

Exec SQL
Exec WHERE
Where: SQL_DSL
Exec LIKE::b (LIKE %abc%)
Can't call method "WHERE" without a package or object reference at ...

#!perl
package SQL_DSL_Keyword;
...
}

1;

#!perl
package SQL_DSL_Transform;
...
}

1;