[dbsrgits/SQL-Abstract.git] / maint / sqlaexpr

#!/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) ]);
Commit	Line	Data
e9f5612c	1	#!/usr/bin/env perl
e9f5612c	2
9d181d63	3	use lib 'lib';
db4bdeb5	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) ]);