| line |
true |
false |
branch |
|
43
|
5 |
2 |
if defined($field = $head->get("Date")) |
|
46
|
4 |
3 |
if defined($field = $head->get("Subject")) |
|
49
|
1 |
6 |
if defined($field = $head->get("Content-Description")) |
|
52
|
1 |
6 |
if defined($field = $head->get("Content-Language")) |
|
55
|
1 |
6 |
if defined($value = $body->dispositionFilename) |
|
59
|
0 |
7 |
if $args{'md5checksums'} |
|
61
|
7 |
0 |
if (defined($field = $body->transferEncoding)) |
|
63
|
5 |
2 |
unless $tf eq "none" |
|
68
|
7 |
0 |
if (defined($field = $body->disposition)) { } |
|
70
|
5 |
1 |
$body->isText ? : |
|
|
6 |
1 |
if $how eq "none" |
|
74
|
0 |
0 |
$body->isText ? : |
|
78
|
5 |
2 |
if (defined $id) |
|
82
|
5 |
0 |
if length $msgid |
|
86
|
30 |
12 |
unless my $addrs = $head->study($addr) |
|
95
|
1 |
6 |
if ($body->isMultipart) { } |
|
|
1 |
5 |
elsif ($body->isNested) { } |
|
119
|
2 |
16 |
if ($self->{'parts'}) |
|
125
|
1 |
1 |
if ($extended) |
|
130
|
0 |
1 |
if @attr or @disp or defined $self->{'language'} |
|
150
|
2 |
14 |
if (my $nest = $self->{'nest'}) |
|
160
|
8 |
0 |
if $extended and $self->{'bodyMD5'} || $self->{'disposition'} || $self->{'language'} |
|
171
|
33 |
15 |
unless ($self->{$addr}) |
|
201
|
2 |
7 |
unless my $nr = shift() |
|
206
|
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 |
|
233
|
0 |
0 |
defined $self->{'bodysize'} ? : |
|
234
|
0 |
0 |
defined $self->{'bodylines'} ? : |
|
239
|
0 |
0 |
ref $fh eq 'GLOB' ? : |
|
241
|
0 |
0 |
if ($self->{'nest'}) { } |
|
|
0 |
0 |
elsif ($self->{'parts'}) { } |
|
242
|
0 |
0 |
length $number ? : |
|
246
|
0 |
0 |
if length $number |
|
267
|
24 |
304 |
if (ref $_ eq 'ARRAY') { } |
|
|
53 |
251 |
elsif (ref $_ eq 'SCALAR') { } |
|
|
100 |
151 |
elsif (not defined $_) { } |