projects
/
dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
using SQLA2
[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git]
/
sql-test.pl
1
#!/usr/bin/env perl
2
3
use lib "$ENV{HOME}/wdir/SQL-Abstract/lib";
4
use lib "$ENV{HOME}/wdir/SQL-Abstract/t/lib";
5
6
use Test::SQL::Abstract::Util qw(
7
mk_name
8
mk_value
9
mk_alias
10
mk_expr
11
:dumper_sort
12
);
13
14
use SQL::Abstract;
15
16
my $sqla = SQL::Abstract->create(1);
17
18
warn $sqla->dispatch(
19
{ -type => 'list', args => [
20
mk_name('foo')
21
] });