[dbsrgits/DBIx-Class-Fixtures.git] / lib / DBIx / Class / Fixtures / DBI / mysql.pm

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;
Commit	Line	Data
1ac1b0d7	1	package DBIx::Class::Fixtures::DBI::mysql;
	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 foreign_key_checks=0') };
	13	$sub->();
	14	eval { $schema->storage->dbh->do('SET foreign_key_checks=1') };
	15	}
	16	);
	17	}
	18
	19	1;