| line |
true |
false |
branch |
|
49
|
5 |
2 |
if defined($field = $head->get("Date")) |
|
52
|
4 |
3 |
if defined($field = $head->get("Subject")) |
|
55
|
1 |
6 |
if defined($field = $head->get("Content-Description")) |
|
58
|
1 |
6 |
if defined($field = $head->get("Content-Language")) |
|
61
|
1 |
6 |
if defined($value = $body->dispositionFilename) |
|
65
|
0 |
7 |
if $args{'md5checksums'} |
|
67
|
7 |
0 |
if (defined($field = $body->transferEncoding)) |
|
69
|
5 |
2 |
unless $tf eq "none" |
|
74
|
7 |
0 |
if (defined($field = $body->disposition)) { } |
|
76
|
5 |
1 |
$body->isText ? : |
|
|
6 |
1 |
if $how eq "none" |
|
80
|
0 |
0 |
$body->isText ? : |
|
84
|
5 |
2 |
if (defined $id) |
|
86
|
5 |
0 |
if length $msgid |
|
90
|
30 |
12 |
unless my $addrs = $head->study($addr) |
|
97
|
1 |
6 |
if ($body->isMultipart) { } |
|
|
1 |
5 |
elsif ($body->isNested) { } |
|
121
|
2 |
16 |
if ($self->{'parts'}) |
|
127
|
1 |
1 |
if ($extended) |
|
132
|
0 |
1 |
if @attr or @disp or defined $self->{'language'} |
|
152
|
2 |
14 |
if (my $nest = $self->{'nest'}) |
|
161
|
8 |
0 |
if $extended and $self->{'bodyMD5'} || $self->{'disposition'} || $self->{'language'} |
|
172
|
33 |
15 |
unless ($self->{$addr}) |
|
202
|
2 |
7 |
unless my $nr = shift() |
|
207
|
1 |
7 |
if (exists $self->{'nest'} and $take == 1) { } |
|
|
4 |
3 |
elsif (exists $self->{'parts'} and @{$self->{'parts'};} >= $take) { } |
|
220
|
0 |
0 |
@_ ? : |
|
221
|
0 |
0 |
@_ ? : |
|
224
|
0 |
0 |
unless defined $fh |
|
241
|
0 |
0 |
if (my $nest = $self->{'nest'}) { } |
|
|
0 |
0 |
elsif (my $parts = $self->{'parts'}) { } |
|
242
|
0 |
0 |
length $number ? : |
|
246
|
0 |
0 |
if length $number |
|
265
|
24 |
304 |
if (ref $_ eq 'ARRAY') { } |
|
|
53 |
251 |
elsif (ref $_ eq 'SCALAR') { } |
|
|
100 |
151 |
elsif (not defined $_) { } |