+ %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];