| line |
true |
false |
branch |
|
38
|
0 |
15 |
@_ > 1 ? : |
|
39
|
0 |
15 |
@_ > 1 ? : |
|
40
|
0 |
15 |
@_ > 1 ? : |
|
41
|
0 |
0 |
@_ > 1 ? : |
|
42
|
0 |
0 |
@_ > 1 ? : |
|
43
|
0 |
0 |
@_ > 1 ? : |
|
44
|
0 |
0 |
@_ > 1 ? : |
|
50
|
5 |
0 |
if (not defined $print_spec) { } |
|
|
0 |
0 |
elsif ($print_spec =~ /^\d+$/) { } |
|
57
|
0 |
0 |
if ($print_spec =~ /header/i) |
|
60
|
0 |
0 |
if ($print_spec =~ /body/i) |
|
63
|
0 |
0 |
if ($print_spec =~ /preamble/i) |
|
66
|
0 |
0 |
if ($print_spec =~ /epilogue/i) |
|
70
|
0 |
5 |
if ($$self{'print_header'}) |
|
73
|
0 |
5 |
if ($$self{'print_body'}) |
|
76
|
0 |
5 |
if ($$self{'print_preamble'}) |
|
79
|
0 |
5 |
if ($$self{'print_epilogue'}) |
|
112
|
245 |
105 |
if ($state == 1) { } |
|
|
50 |
55 |
elsif (@boundaries and /^--(.+?)(--)?$/ and $1 eq $boundaries[-1]) { } |
|
|
15 |
40 |
elsif ($state == 3) { } |
|
|
0 |
40 |
elsif ($state == 4) { } |
|
114
|
50 |
195 |
if (/^$/) |
|
116
|
0 |
50 |
if $print & 1 |
|
124
|
35 |
15 |
if (@context > 1) |
|
128
|
5 |
45 |
unless $$fields{'content-type'} |
|
129
|
5 |
45 |
unless (defined $content_type) |
|
130
|
0 |
5 |
if ($parent and "$$parent{'type'}/$$parent{'subtype'}" eq 'multipart/digest') { } |
|
141
|
0 |
50 |
if $keep_header |
|
142
|
50 |
0 |
if $keep_fields |
|
146
|
15 |
35 |
if ($type eq 'multipart') { } |
|
150
|
0 |
15 |
unless defined $boundary |
|
160
|
5 |
30 |
if ($level == 0 and not $print & 4) |
|
172
|
0 |
50 |
if $print != 0 |
|
173
|
15 |
35 |
if (defined $2) { } |
|
197
|
0 |
15 |
if $print & 2 |
|
201
|
0 |
0 |
if $print & 8 |
|
205
|
0 |
40 |
if $print & 4 |
|
209
|
0 |
15 |
if (@context) |
|
215
|
12 |
3 |
wantarray ? : |
|
231
|
3 |
7 |
if ($type eq 'multipart') { } |
|
274
|
30 |
20 |
unless defined $str |
|
278
|
10 |
10 |
if ($str =~ /^"/) { } |
|
|
10 |
0 |
elsif ($str =~ s(^([^\s()<>\@,;:\\"/\[\]?=]+))[]) { } |
|
291
|
0 |
20 |
unless $str =~ s/^(\s*;\s*|\s*$)// |