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

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;
Commit	Line	Data
1ac1b0d7	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;