Added the sql expr scripts I've been using to test

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

diff --git a/maint/sqlaexpr b/maint/sqlaexpr
new file mode 100755 (executable)
index 0000000..de4e265
--- /dev/null
+++ b/maint/sqlaexpr
@@ -0,0 +1,10 @@
+use SQL::Abstract;
+use Devel::Dwarn;
+
+warn $ARGV[1];
+
+my @args = eval '('.$ARGV[1].')';
+
+die $@ if $@;
+
+Dwarn([ SQL::Abstract->new->${\$ARGV[0]}(@args) ]);