t/lib/UUIDTest/Setup.pm

   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;