view release on metacpan or  search on metacpan

lib/Mail/Make/Headers.pm  view on Meta::CPAN

    'reply-to'                  => 'Reply-To',
    'sender'                    => 'Sender',
    'subject'                   => 'Subject',
    'date'                      => 'Date',
    'message-id'                => 'Message-ID',
    'in-reply-to'               => 'In-Reply-To',
    'references'                => 'References',
    'return-path'               => 'Return-Path',
    'received'                  => 'Received',
    'mime-version'              => 'MIME-Version',
    'content-type'              => 'Content-Type',
    'content-transfer-encoding' => 'Content-Transfer-Encoding',
    'content-disposition'       => 'Content-Disposition',
    'content-id'                => 'Content-ID',
    'content-description'       => 'Content-Description',
};

my $header_fields_order =
{
    'return-path'               => 10,
    'received'                  => 20,

lib/Mail/Make/Headers.pm  view on Meta::CPAN

    'sender'                    => 50,
    'reply-to'                  => 60,
    'to'                        => 70,
    'cc'                        => 80,
    'bcc'                       => 90,
    'message-id'                => 100,
    'in-reply-to'               => 110,
    'references'                => 120,
    'subject'                   => 130,
    'mime-version'              => 200,
    'content-type'              => 210,
    'content-transfer-encoding' => 220,
    'content-disposition'       => 230,
    'content-id'                => 240,
    'content-description'       => 250,
};
my $fqdn_re = qr/\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/;
my %valid_encoding = map{ $_ => 1 } qw( 7bit 8bit binary base64 quoted-printable );

sub init
{