[dbsrgits/DBIx-Class-UUIDColumns.git] / t / lib / UUIDTest / Setup.pm

use strict;
use warnings;
use UUIDTest;

my $schema = UUIDTest->initialise;

$schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);

my $dbh = $schema->storage->dbh;

$schema->deploy;

$schema->storage->dbh->do("PRAGMA synchronous = OFF");

1;
Commit	Line	Data
773544fd	1	use strict;
	2	use warnings;
	3	use UUIDTest;
	4
	5	my $schema = UUIDTest->initialise;
	6
	7	$schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);
	8
	9	my $dbh = $schema->storage->dbh;
	10
	11	$schema->deploy;
	12
	13	$schema->storage->dbh->do("PRAGMA synchronous = OFF");
	14
	15	1;