X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FMIME.pm;fp=Debbugs%2FMIME.pm;h=f9b58c9093d9836d942f7a4bd79dc961e513588d;hb=eab466431c091eafc31c20b8580bd8a00c28a154;hp=05534e3e054c47d2cb281f683aaacf1a0ac7a52e;hpb=2ca3d4b399934b4ee936f9a3f511b22fbcd48281;p=debbugs.git

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index 05534e3..f9b58c9 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -31,12 +31,21 @@ use warnings;
 use strict;
 
 use base qw(Exporter);
-use vars qw($VERSION @EXPORT_OK);
+use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT);
 
 BEGIN {
     $VERSION = 1.00;
+    $DEBUG = 0 unless defined $DEBUG;
 
-    @EXPORT_OK = qw(parse decode_rfc1522 encode_rfc1522 convert_to_utf8 create_mime_message getmailbody);
+    @EXPORT = ();
+
+    %EXPORT_TAGS = (mime => qw(parse create_mime_message getmailbody),
+		    rfc1522 => qw(decode_rfc1522 encode_rfc522),
+		    utf8 => qw(convert_to_utf8),
+		   );
+    @EXPORT_OK=();
+    Exporter::export_ok_tags(keys %EXPORT_TAGS);
+    $EXPORT_TAGS{all} = [@EXPORT_OK];
 }
 
 use File::Path;