Branch Coverage

blib/lib/Mail/IMAPClient/BodyStructure.pm
Criterion Covered Total %
branch 27 54 50.0


line true false branch
19 0 9 unless my $self = $parser->start($bodystructure)
23 8 1 exists $self->{'bodystructure'} ? :
33 0 89 unless ($object and ref $object)
38 0 89 unless (UNIVERSAL::isa($object, 'HASH') and exists $object->{$thingy})
39 0 0 $thingy =~ /^[aeiou]/i ? :
40 0 0 ref $object eq 'HASH' ? :
41 0 0 $has ? :
68 0 0 wantarray ? :
0 6 if exists $self->{'PartsList'}
74 0 6 unless (exists $self->{'bodystructure'})
77 0 0 wantarray ? :
86 19 66 if $type eq 'MESSAGE'
90 6 0 wantarray ? :
98 6 49 if ($self->{'_top'})
107 6 0 wantarray ? :
126 15 46 if ($partno == 1 and $stype eq 'MESSAGE' and $ptype eq 'MULTIPART') { }
135 25 36 $p->{'bodystructure'} ? :
138 49 0 wantarray ? :
144 85 0 if exists $self->{'_id'}
147 0 0 if $self->{'_top'}
150 0 0 if ($self->{'bodytype'} eq 'MULTIPART') { }
173 1 2 unless $envelope =~ /^\(/
186 0 4 unless ref $self->{$name} eq 'ARRAY'
192 1 3 $pn && $pn ne 'NIL' ? :
197 0 4 $isSender ? :
0 4 wantarray ? :
208 0 24 @_ > 1 ? :