Commit | Line | Data |
---|---|---|
c95da5ee | 1 | use strictures 2; |
3be8bc78 | 2 | use SQL::Abstract::ExtraClauses; |
c95da5ee | 3 | use Devel::DDCWarn; |
3be8bc78 | 4 | |
5 | warn $ARGV[1]; | |
6 | ||
c95da5ee | 7 | my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1); |
3be8bc78 | 8 | |
c95da5ee | 9 | my @args = ($ARGV[1] =~ /^\.\// ? do $ARGV[1] : eval '+('.$ARGV[1].')'); |
3be8bc78 | 10 | |
c95da5ee | 11 | die $@ if $@; |
3be8bc78 | 12 | |
13 | Dwarn([ $sqlac->${\$ARGV[0]}(@args) ]); |