maint/sqlaexpr

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