# 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;