NAME

Sisimai::MIME - MIME Utilities

SYNOPSIS

use Sisimai::MIME;

my $e = '=?utf-8?B?55m954yr44Gr44KD44KT44GT?=';
my $v = Sisimai::MIME->is_mimeencoded( \$e );
print $v;   # 1

my $x = Sisimai::MIME->mimedecode( [ $e ] );
print $x;

DESCRIPTION

Sisimai::MIME is MIME Utilities for Sisimai.

CLASS METHODS

is_mimeencoded( Scalar Reference )

is_mimeencoded() returns that the argument is MIME-Encoded string or not.

my $e = '=?utf-8?B?55m954yr44Gr44KD44KT44GT?=';
my $v = Sisimai::MIME->is_mimeencoded( \$e );  # 1

mimedecode( Array-Ref )

mimedecode() is a decoder method for getting the original string from MIME Encoded string.

my $r = '=?utf-8?B?55m954yr44Gr44KD44KT44GT?=';
my $v = Sisimai::MIME->mimedecode( [ $r ] );

boundary( String )

boundary() returns a boundary string from the value of Content-Type header.

my $r = 'Content-Type: multipart/mixed; boundary=Apple-Mail-1-526612466';
my $v = Sisimai::MIME->boundary( $r );
print $v;   # Apple-Mail-1-526612466

print Sisimai::MIME->boundary( $r, 0 ); # --Apple-Mail-1-526612466
print Sisimai::MIME->boundary( $r, 1 ); # --Apple-Mail-1-526612466--

AUTHOR

azumakuniyuki

COPYRIGHT

Copyright (C) 2014-2015 azumakuniyuki <perl.org@azumakuniyuki.org>, All Rights Reserved.

LICENSE

This software is distributed under The BSD 2-Clause License.