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