Commit | Line | Data |
---|---|---|
cd979d19 | 1 | #!/usr/bin/env perl |
2 | ||
c95da5ee | 3 | use strictures 2; |
3be8bc78 | 4 | use SQL::Abstract::ExtraClauses; |
07070f1a | 5 | #use Devel::DDCWarn; |
3be8bc78 | 6 | |
7 | warn $ARGV[1]; | |
8 | ||
b3b54441 | 9 | my $sqlac = SQL::Abstract::ExtraClauses->new( |
10 | unknown_unop_always_func => 1, | |
11 | lazy_join_sql_parts => 1, | |
12 | ); | |
3be8bc78 | 13 | |
c95da5ee | 14 | my @args = ($ARGV[1] =~ /^\.\// ? do $ARGV[1] : eval '+('.$ARGV[1].')'); |
3be8bc78 | 15 | |
c95da5ee | 16 | die $@ if $@; |
3be8bc78 | 17 | |
b3b54441 | 18 | my ($q, @bind) = $sqlac->${\$ARGV[0]}(@args); |
19 | ||
eef0f203 | 20 | print STDERR $q->format."\n"; |
07070f1a | 21 | Dwarn [ @bind ]; |