maint/sqlacexpr

   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) ]);