From 1f0e14f2af07576c71e674a946b84f60f594e653 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 15 Feb 2015 18:32:49 +0000
Subject: Introduce Debian/Dgit.pm

---
 Debian/Dgit.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 Debian/Dgit.pm

(limited to 'Debian')

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
new file mode 100644
index 0000000..2be936b
--- /dev/null
+++ b/Debian/Dgit.pm
@@ -0,0 +1,27 @@
+#
+
+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);
+    %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
+    @EXPORT_OK   = qw();
+}
+
+our @EXPORT_OK;
+
+sub debiantag ($) { 
+    my ($v) = @_;
+    $v =~ y/~:/_%/;
+    return "debian/$v";
+}
+
+1;
-- 
cgit v1.2.1