[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / sql-test.pl

#!/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')
  ] });
Commit	Line	Data
8163603a	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	] });