Branch Coverage

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


line true false branch
19 0 10 unless my $self = $parser->start($bodystructure)
23 9 1 exists $self->{'bodystructure'} ? :
33 0 91 unless ($object and ref $object)
38 0 91 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 7 if exists $self->{'PartsList'}
74 0 7 unless (exists $self->{'bodystructure'})
77 0 0 wantarray ? :
86 19 68 if $type eq 'MESSAGE'
90 7 0 wantarray ? :
98 7 51 if ($self->{'_top'})
107 7 0 wantarray ? :
126 15 46 if ($partno == 1 and $stype eq 'MESSAGE' and $ptype eq 'MULTIPART') { }
135 25 36 $p->{'bodystructure'} ? :
138 51 0 wantarray ? :
144 87 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 ? :