Branch Coverage

blib/lib/Ftree/FamilyTreeGraphics.pm
Criterion Covered Total %
branch 0 86 0.0


line true false branch
81 0 0 if ($self->{'reqLevels'} > 0) { }
105 0 0 unless defined $self->{'reqLevels'}
114 0 0 unless (defined $self->{'target_person'})
129 0 0 if ($self->{'reqLevels'} > 3) { }
0 0 elsif ($self->{'reqLevels'} == 3) { }
0 0 elsif ($self->{'reqLevels'} == 2) { }
0 0 elsif ($self->{'reqLevels'} == 1) { }
0 0 elsif ($self->{'reqLevels'} == 0) { }
165 0 0 $person == $self->{'target_person'} || $person == $Person::unknown_male || $person == $Person::unknown_female ? :
197 0 0 if 0 == $levels
198 0 0 if $root_person == $Person::unknown_male or $root_person == $Person::unknown_female
200 0 0 unless defined $root_person->get_children
219 0 0 if $req_levels == 0
220 0 0 unless defined $root_person
221 0 0 unless defined $root_person->get_father or defined $root_person->get_mother
223 0 0 if $anc_level == $req_levels
245 0 0 if ($root_person != $Person::unknown_male and $root_person != $Person::unknown_female and defined $root_person->get_children) { }
249 0 0 if $dec_level > $self->{'DLevels'}
255 0 0 if ($dec_level < $req_levels)
256 0 0 if (defined $root_person->get_children) { }
291 0 0 if (&$emptyTDCond($self, $person, $this_level)) { }
339 0 0 if (@{$DTree_ref->[$this_level];} == 0) { }
347 0 0 if (1 == $this_level) { }
351 0 0 if defined $person->get_father
354 0 0 unless defined $this_parent
358 0 0 if ($person == $Person::unknown_female) { }
0 0 elsif (1 == @{$this_parent->get_children;}) { }
0 0 elsif ($person == $this_parent->get_children->[0]) { }
0 0 elsif ($person == $this_parent->get_children->[-1]) { }
414 0 0 unless $anc_level < $req_levels
417 0 0 defined $root_person->get_father ? :
420 0 0 defined $root_person->get_mother ? :
440 0 0 if 0 > $diff_levels
501 0 0 if $is_blank_line
546 0 0 if (@peers > 1) { }
565 0 0 if (defined $self->{'target_person'}->get_children)
597 0 0 if not defined $person or $person == $Person::unknown_male or $person == $Person::unknown_female
599 0 0 if (defined $person->get_name) { }
600 0 0 $self->{'reqLevels'} > 1 ? :
605 0 0 if ($person == $self->{'target_person'}) { }
621 0 0 if ($lev_minus1 >= 0)
629 0 0 if ($self->{'reqLevels'} <= $aLevels)
652 0 0 defined $self->{'target_person'}->get_name ? :