3 package Debian::Dgit::Policy::Debian;
12 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
16 @EXPORT = qw(poldb_path poldb_setup $poldbh);
27 return "$repos/policy.sqlite3";
30 sub poldb_setup ($;$) {
31 my ($policydb, $hook) = @_;
33 $poldbh ||= DBI->connect("dbi:SQLite:$policydb",'','', {
34 RaiseError=>1, PrintError=>1, AutoCommit=>0
39 $poldbh->do("PRAGMA foreign_keys = ON");