1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use Test::More tests => 1;
use MIME::Parser;
my $parser = MIME::Parser->new();
$parser->output_to_core(1);
my $message = <<'EOF';
From: <devnull@example.org>
To: <devnull@example.com>
Subject: Ticket #71041 test
Message-Id: <cheese@burger.org>
MIME-Version: 1.0
Content-Type: text/plain
This should parse properly.
EOF
# Set $\ to something wacky
$\ = "\n";
my $entity = $parser->parse_data($message);
my $head = $entity->head;
is ($head->get('From'), "<devnull\@example.org>\n", 'Header was parsed as expected');
|
