Commit | Line | Data |
---|---|---|
e9f5612c | 1 | #!/usr/bin/env perl |
2 | ||
9d181d63 | 3 | use lib 'lib'; |
86654e45 | 4 | use strictures 2; |
681d9d77 | 5 | use SQL::Abstract; |
681d9d77 | 6 | use Devel::DDCWarn; |
db4bdeb5 | 7 | |
681d9d77 | 8 | warn $ARGV[1]."\n"; |
db4bdeb5 | 9 | |
681d9d77 | 10 | my $sqlac = SQL::Abstract->new( |
77ec9556 | 11 | unknown_unop_always_func => 1, |
12 | lazy_join_sql_parts => 1, | |
2cd68a50 | 13 | )->plugin('+ExtraClauses'); |
681d9d77 | 14 | |
86654e45 | 15 | my @args = ($ARGV[1] =~ /^\.\// ? do $ARGV[1] : eval '+('.$ARGV[1].')'); |
db4bdeb5 | 16 | |
86654e45 | 17 | die $@ if $@; |
db4bdeb5 | 18 | |
77ec9556 | 19 | my ($q, @bind) = $sqlac->${\$ARGV[0]}(@args); |
20 | ||
681d9d77 | 21 | print STDERR +(ref($q) ? $q->format : $q)."\n"; |
b7516a3a | 22 | Dwarn [ @bind ]; |