[scpubgit/Q-Branch.git] / maint / sqlaexpr

#!/usr/bin/env perl

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
cd979d19	1	#!/usr/bin/env perl
cd979d19	2
3be8bc78	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) ]);