The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DBIx::Class::Fixtures::DBI::mysql;

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 foreign_key_checks=0') };
      $sub->();
      eval { $schema->storage->dbh->do('SET foreign_key_checks=1') };
    }
  );
}

1;