| line |
true |
false |
branch |
|
86
|
0 |
4 |
unless open $PKT, '<', $packet_file |
|
94
|
4 |
4 |
if read($PKT, $buffer, 14) != 14 |
|
111
|
0 |
4 |
if (length $date_time > 20) { } |
|
133
|
0 |
4 |
if $#lines < 0 |
|
139
|
2 |
2 |
if m[/]i |
|
151
|
4 |
16 |
if ($lines[$i] =~ /^\001/) |
|
159
|
2 |
6 |
if $_ eq '' |
|
160
|
2 |
4 |
if (/ \* origin: /i) |
|
164
|
0 |
4 |
if (/---/) |
|
167
|
0 |
4 |
if (/seen-by/i) |
|
172
|
4 |
0 |
unless ($mailer) |
|
176
|
0 |
4 |
if ($#lines < 0) |
|
190
|
4 |
0 |
if $mailer |
|
191
|
2 |
2 |
if $origin |
|
195
|
0 |
4 |
if $seen_by |
|
201
|
4 |
0 |
if (substr($c, 0, 6) eq 'MSGID:') |
|
208
|
0 |
4 |
unless ($message_id) |
|
336
|
0 |
0 |
unless open $PKT, '>', "$packet_file" |