From: Matt S Trout <matthewt@hercule.scsys.co.uk>
Date: Fri, 24 Jul 2009 16:25:14 +0000 (+0100)
Subject: using SQLA2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8163603a4b318ba7cb807a6e0bb6ee3abb4dfd54;hp=388d83fc4aa8769c09efc050d53de2168d0d1989;p=dbsrgits%2FDBIx-Class-ResultSource-MultipleTableInheritance.git

using SQLA2
---

diff --git a/sql-test.pl b/sql-test.pl
new file mode 100644
index 0000000..4027451
--- /dev/null
+++ b/sql-test.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use lib "$ENV{HOME}/wdir/SQL-Abstract/lib";
+use lib "$ENV{HOME}/wdir/SQL-Abstract/t/lib";
+
+use Test::SQL::Abstract::Util qw(
+  mk_name
+  mk_value
+  mk_alias
+  mk_expr
+  :dumper_sort
+);
+
+use SQL::Abstract;
+
+my $sqla = SQL::Abstract->create(1);
+
+warn $sqla->dispatch(
+  { -type => 'list', args => [
+    mk_name('foo')
+  ] });