projects
/
dbsrgits/DBIx-Class-Fixtures.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ecff87b4bc7db49225728a611cc3e43fc11a8cfc
[dbsrgits/DBIx-Class-Fixtures.git]
/
lib
/
DBIx
/
Class
/
Fixtures
/
DBI
/
Pg.pm
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;