# package Debian::Dgit; use strict; use warnings; BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(debiantag server_branch server_ref $package_re $branchprefix); %EXPORT_TAGS = ( policyflags => qw() ); @EXPORT_OK = qw(); } our @EXPORT_OK; our $package_re = '[0-9a-z][-+.0-9a-z]*'; our $branchprefix = 'dgit'; # policy hook exit status bits # any unexpected bits mean failure, and then known set bits are ignored sub NOFFCHECK () { return 2; } # suppress dgit-repos-server's ff check ("push" only) sub FRESHREPO () { return 4; } # blow away repo right away (ie, as if before push or fetch) # ("check-package" and "push" only) sub debiantag ($) { my ($v) = @_; $v =~ y/~:/_%/; return "debian/$v"; } sub server_branch ($) { return "$branchprefix/$_[0]"; } sub server_ref ($) { return "refs/".server_branch($_[0]); } 1;