diff options
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Dgit/Policy/Debian.pm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/Debian/Dgit/Policy/Debian.pm b/Debian/Dgit/Policy/Debian.pm new file mode 100644 index 0000000..03118b1 --- /dev/null +++ b/Debian/Dgit/Policy/Debian.pm @@ -0,0 +1,39 @@ +# -*- perl -*- + +package Debian::Dgit::Policy::Debian; + +use strict; +use warnings; + +use POSIX; + +BEGIN { + use Exporter (); + our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); + + $VERSION = 1.00; + @ISA = qw(Exporter); + @EXPORT = qw(poldb_path poldb_setup $poldbh); + %EXPORT_TAGS = ( ); + @EXPORT_OK = qw(); +} + +our @EXPORT_OK; + +our $poldbh; + +sub poldb_path ($) { + my ($repos) = @_; + return "$repos/policy.sqlite3"; +} + +sub poldb_setup ($) { + my ($policydb) = @_; + + $poldbh ||= DBI->connect("dbi:SQLite:$policydb",'','', { + RaiseError=>1, PrintError=>1, AutoCommit=>0 + }); + $poldbh->do("PRAGMA foreign_keys = ON"); +} + +1; |