maint/sqlaexpr

   1 #!/usr/bin/env perl
   2
   3 use SQL::Abstract;
   4 use Devel::Dwarn;
   5
   6 warn $ARGV[1];
   7
   8 my @args = eval '('.$ARGV[1].')';
   9
  10 die $@ if $@;
  11
  12 Dwarn([ SQL::Abstract->new->${\$ARGV[0]}(@args) ]);