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

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

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;