lib/DBIx/Class/Fixtures/DBI/Pg.pm

   1 package DBIx::Class::Fixtures::DBI::Pg;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/DBIx::Class::Fixtures::DBI/;
   6
   7 sub do_insert {
   8   my ($class, $schema, $sub) = @_;
   9
  10   $schema->txn_do(
  11     sub {
  12       eval { $schema->storage->dbh->do('SET CONSTRAINTS ALL DEFERRED') };
  13       $sub->();
  14     }
  15   );
  16 }
  17
  18 1;