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