1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/env perl
use Benchmark qw( timethese );
use Courriel;
use Email::MIME;
my $text = <<'EOF';
From autarch@gmail.com Sun May 29 11:22:29 2011
MIME-Version: 1.0
Date: Sun, 29 May 2011 11:22:22 -0500
Message-ID: <BANLkTimjF2BDbOKO_2jFJsp6t+0KvqxCwQ@mail.gmail.com>
Subject: Testing
From: Dave Rolsky <autarch@gmail.com>
To: Dave Rolsky <autarch@urth.org>
Content-Type: multipart/alternative; boundary=20cf3071cfd06272ae04a46c9306
--20cf3071cfd06272ae04a46c9306
Content-Type: text/plain; charset=ISO-8859-1
This is a test email.
It has some *bold* text.
--20cf3071cfd06272ae04a46c9306
Content-Type: text/html; charset=ISO-8859-1
This is a test email.<br><br>It has some <b>bold</b> text.<br><br>
--20cf3071cfd06272ae04a46c9306--
EOF
sub courriel {
my $copy = $text;
Courriel->parse( text => \$copy );
}
sub email_mime {
my $copy = $text;
Email::MIME->new(\$copy);
}
timethese(
5000, {
Courriel => \&courriel,
'Email::MIME' => \&email_mime,
}
);
|
