From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 17 Apr 2019 02:12:28 +0000 (+0000)
Subject: Added the sql expr scripts I've been using to test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3be8bc783dc0c0adeebf7187d7751047233d0ebe;p=scpubgit%2FQ-Branch.git

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

diff --git a/maint/sqlacexpr b/maint/sqlacexpr
new file mode 100755
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) ]);
diff --git a/maint/sqlaexpr b/maint/sqlaexpr
new file mode 100755
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) ]);