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

use SQL::Abstract::ExtraClauses;
use Devel::Dwarn;

warn $ARGV[1];

my @args = eval '('.$ARGV[1].')';

die $@ if $@;

my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1);

Dwarn([ $sqlac->${\$ARGV[0]}(@args) ]);
Commit	Line	Data
3be8bc78	1	use SQL::Abstract::ExtraClauses;
	2	use Devel::Dwarn;
	3
	4	warn $ARGV[1];
	5
	6	my @args = eval '('.$ARGV[1].')';
	7
	8	die $@ if $@;
	9
	10	my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1);
	11
	12	Dwarn([ $sqlac->${\$ARGV[0]}(@args) ]);