X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fsqlacexpr;fp=maint%2Fsqlacexpr;h=63b41f6c8fdba70a91a7307d63117107724f38b1;hb=3be8bc783dc0c0adeebf7187d7751047233d0ebe;hp=0000000000000000000000000000000000000000;hpb=54a2a1e592dde8602557b10378c475618f7292f0;p=scpubgit%2FQ-Branch.git

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) ]);