- my $mime = Email::MIME->create(
- header => [
- From => 'a@example.com',
- To => 'b@example.com',
- 'Content-Type' => 'text/plain',
- Subject => 'this is a subject',
- 'Message-ID' => '<a@example.com>',
- Date => 'Fri, 02 Oct 1993 00:00:00 +0000',
- 'Received' => '(majordomo@vger.kernel.org) by vger.kernel.org via listexpand\n\tid S932173AbXAVSQY (ORCPT <rfc822;w@1wt.eu>);\n\t' . $received,
- ],
- body => "hello world\n",
- );
+ my $mime = PublicInbox::Eml->new(<<"EOF");
+From: a\@example.com
+To: b\@example.com
+Subject: this is a subject
+Message-ID: <a\@example.com>
+Date: Fri, 02 Oct 1993 00:00:00 +0000
+Received: (majordomo\@vger.kernel.org) by vger.kernel.org via listexpand
+ id S932173AbXAVSQY (ORCPT <rfc822;w\@1wt.eu>);
+ $received
+
+hello world
+EOF