From eab466431c091eafc31c20b8580bd8a00c28a154 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 9 Jul 2012 12:21:44 -0700 Subject: [PATCH] support export tags --- Debbugs/MIME.pm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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; -- 2.39.2