Email::MIME
===========

This is a port of perl 5's Email::MIME.

## Example Usage ##

    use Email::MIME;

    my $eml = Email::MIME.new($raw-mail-text);
    say $eml.body-str;

    my $new = Email::MIME.create(header-str => ['from' => 'root+github@retupmoca.com',
                                                'subject' => 'This is a»test.'],
                                 attributes => {'content-type' => 'text/plain',
                                                'charset' => 'utf-8',
                                                'encoding' => 'quoted-printable'},
                                 body-str => 'Hello«World');
    say ~$new;

## Faster Base64 Encoding ##

To benefit from faster Base64 encoding and decoding install the `Base64::Native` module
which will be auto-detected and used automatically.

## Methods ##

 -  `new(Str $text)`

    To work around the current limitation of new() requiring a well formed unicode Str, you will
    need to set the correct decoding on Slurp.
    ```
    my $msg = Email::MIME.new($file.IO.slurp: enc => 'utf8-c8');
    ```

 -  `create(:$header, :$header-str, :$attributes, :$parts, :$body, :$body-str)`

 -  `filename($force = False)`

 -  `invent-filename($ct?)`

 -  `filename-set($filename)`

 -  `boundary-set($string)`

 -  `content-type()`

 -  `content-type-set($ct)`

 -  `charset-set($charset)`

 -  `name-set($name)`

 -  `format-set($format)`

 -  `disposition-set($disposition)`

 -  `encoding-set($enc)`

 -  `parts()`

    Returns the subparts of the current message. If there are no subparts, will
    return the current message.

 -  `subparts()`

    Returns the subparts of the current message. If there are no subparts, will
    return an empty list.

 -  `walk-parts($callback)`

    Visits each MIME part once, calling `$callback($part)` on each.

 -  `debug-structure()`

    Prints out the part structure of the email.

 -  `parts-set(@parts)`

    Sets the passed `Email::MIME` objects as the parts of the email.

 -  `parts-add(@parts)`

    Adds the passed `Email::MIME` objects to the list of parts in the email.

 -  `body-str( --> Str)`

    Returns the mail body, decoded according to the charset and transfer encoding
    headers.

 -  `body-str-set(Str $body)`

    Sets the mail body to $body, encoding it using the charset and transfer
    encoding configured.

 -  `body( --> Buf)`

    Returns the mail body as a binary blob, after decoding it from the
    transfer encoding.

 -  `body-set(Blob $data)`

    Sets the mail body to `$data`. Will encode $data using the configured
    transfer encoding.

 -  `body-raw()`

    Returns the raw body of the email (What will appear when .Str is called)

 -  `body-raw-set($body)`

    Sets the raw body of the email (What will appear when .Str is called)

 -  `header-str-pairs()`

    Returns the full header data for an email.

 -  `header-str($name, :$multi)`

    Returns the email header with the name `$name`. If `:$multi` is not passed, then
    this will return the first header found. If `:$multi` is set, then this will
    return a list of all headers with the name `$name` (note the change from v1.0!)


 -  `header-str-set($name, *@lines)`

    Sets the header `$name`. Adds one `$name` header for each additional argument
    passed.

 -  `header-names()`

    Returns a list of header names in the email.

 -  `headers()`

    Alias of `header-names()`

 -  `header($name)`

    Returns a list of email headers with the name `$name`. If used in string context,
    will act like the first value of the list. (So you can call
    `say $eml.header('Subject')` and it will work correctly). Note that this will
    not decode any encoded headers.

 -  `header-set($name, *@lines)`

    Sets the header `$name`. Adds one `$name` header for each additional argument
    passed. This will not encode any headers, even if they have non-ascii
    characters.

 -  `header-pairs()`

    Returns the full header data for an email. Note that this will not decode any
    encoded headers.

        $eml.header-pairs(); # --> [['Subject', 'test'], ['From', 'me@example.com']]

 -  `as-string()`, `Str()`

    Returns the full raw email, suitable for piping into sendmail.

 -  `crlf()`

 -  `header-obj()`

 -  `header-obj-set($obj)`

## License ##

All files in this repository are licensed under the terms of the Creative Commons
CC0 License; for details, please see the LICENSE file