Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MSTROUT / SQL-Abstract-2.000001 / maint / sqlaexpr 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
#!/usr/bin/env perl
use lib 'lib';
use SQL::Abstract;
use Devel::Dwarn;
warn $ARGV[1];
my @args = eval '('.$ARGV[1].')';
die $@ if $@;
Dwarn([ SQL::Abstract->new->${\$ARGV[0]}(@args) ]);