Branch Coverage

blib/lib/Mail/Server/IMAP4/Fetch.pm
Criterion Covered Total %
branch 50 78 64.1


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 $_) { }