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

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

diff --git a/maint/sqlacexpr b/maint/sqlacexpr
new file mode 100755 (executable)
index 0000000..63b41f6
--- /dev/null
+++ b/maint/sqlacexpr
@@ -0,0 +1,12 @@
+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) ]);