diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-02-15 18:32:49 +0000 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-03-22 15:18:52 +0000 |
| commit | 1f0e14f2af07576c71e674a946b84f60f594e653 (patch) | |
| tree | 172c640ed403ca2654bc8fac747ea684f0602d05 /Debian/Dgit.pm | |
| parent | 7efe0539417015b5b0da6549dd79b411536bbd7d (diff) | |
Introduce Debian/Dgit.pm
Diffstat (limited to 'Debian/Dgit.pm')
| -rw-r--r-- | Debian/Dgit.pm | 27 |
1 files changed, 27 insertions, 0 deletions
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; |