/usr/local/CPAN/DBIx-Class-Fixtures/DBIx/Class/Fixtures/DBI/Pg.pm

• package DBIx::Class::Fixtures::DBI::Pg
  • do_insert
• EOF

package DBIx::Class::Fixtures::DBI::Pg;

use strict;
use warnings;
use base qw/DBIx::Class::Fixtures::DBI/;

sub do_insert {
  my ($class, $schema, $sub) = @_;

  $schema->txn_do(
    sub {
      eval { $schema->storage->dbh->do('SET CONSTRAINTS ALL DEFERRED') };
      $sub->();
    }
  );
}

1;