equal
deleted
inserted
replaced
5 use warnings; |
5 use warnings; |
6 |
6 |
7 use lib "lib"; |
7 use lib "lib"; |
8 use Message::2822; |
8 use Message::2822; |
9 |
9 |
10 my $message = Message::2822->new(file => shift); |
10 my $message = Message::2822->new(file => shift//"ex/mails/unsigned"); |
11 |
11 |
12 say join "\n", $message->header_content("content-type:"); |
12 say $message->header_content("received:"); |
|
13 say $message->header_content("to:"); |
|
14 |
|
15 say $message->orig_header(); |
|
16 say $message->orig_body(); |
|
17 |
|
18 #say map { ">> '$_'\n" } $message->header_fields(); |
|
19 |