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