Branch Coverage

blib/lib/Tree/DAG_Node.pm
Criterion Covered Total %
branch 140 406 34.4


line true false branch
22 0 70 unless @daughters
40 0 0 unless @daughters
52 0 70 unless @daughters
63 0 74 unless UNIVERSAL::can($daughter, 'is_node')
65 0 74 if $Debug
66 0 74 if $Debug
67 0 74 if $Debug > 1
71 0 74 if $mother eq $daughter
75 0 74 if exists $ancestors{$daughter}
79 0 9 if defined $old_mother and ref $old_mother and $old_mother eq $mother
82 9 65 if defined $old_mother and ref $old_mother
102 0 0 unless @new
119 0 0 unless @new
129 0 0 if (defined $address and length $address) { }
134 0 0 unless @parts
135 0 0 unless shift @parts == 0
142 0 0 if ($#daughters < $ord)
143 0 0 if $Debug
147 0 0 unless (ref $current_node)
148 0 0 if $Debug
172 47 91 unless ref $mama
204 52 138 if (@_)
205 0 52 unless ref $_[0]
219 0 7 unless UNIVERSAL::can($one, 'is_node')
235 0 0 unless @others
241 0 0 unless UNIVERSAL::can($node, 'is_node')
250 0 0 if (exists $first_lineage{$my_lineage[0]})
256 0 0 unless $higher
268 0 0 unless @others
275 0 0 if (exists $ones{$common}) { }
289 0 24 unless ref $o
302 24 0 if ($o->{'no_attribute_copy'}) { }
310 0 0 if ($attrib_copy)
312 0 0 if ($attrib_copy eq 'HASH') { }
0 0 elsif ($attrib_copy = UNIVERSAL::can($to->{'attributes'}, 'copy')) { }
341 0 24 unless ref $o
344 15 9 if @daughters
353 0 0 unless ref $o
365 0 25 if (@_)
367 0 0 unless ref $_[0]
372 0 25 unless $this->{'daughters'}
391 0 0 if ($ref_type eq 'ARRAY') { }
0 0 elsif ($ref_type eq 'HASH') { }
0 0 elsif ($ref_type) { }
443 0 0 if $depth > $max_depth
471 44 2 ref $_[1] ? :
475 2 44 unless exists $o->{'no_name'}
476 2 44 unless exists $o->{'h_spacing'}
477 2 44 unless exists $o->{'h_compact'}
478 2 44 unless exists $o->{'v_compact'}
481 0 46 if ($o->{'no_name'}) { }
484 46 0 defined $it->name ? :
489 16 30 if (not scalar @daughters) { }
498 33 11 if $h > $max_height
509 13 31 if ($deficit > 0)
523 44 0 if ($o->{'h_compact'})
529 136 127 if $b1->[$line] =~ /( +)$/s
530 174 89 if $b2->[$line] =~ /^( +)/s
533 31 232 if $sum < $min_diff
537 30 14 if $to_chop < 0
540 43 1 if (not $o->{'h_compact'} && $to_chop) { }
550 13 0 if ($remaining)
553 0 13 if ($l_chop)
554 0 0 if ($l_chop > $remaining) { }
0 0 elsif ($l_chop == $remaining) { }
563 0 13 if ($r_chop)
564 0 0 if ($r_chop > $remaining) { }
0 0 elsif ($r_chop == $remaining) { }
574 0 13 if $l_chop
575 0 13 if $r_chop
587 30 0 if ($o->{'h_spacing'})
589 127 0 if length $line
594 0 30 unless @box
599 26 4 if ($pipe_count < 2) { }
607 4 0 if ($new_pipes =~ s/^( +)//s) { }
613 4 0 if ($new_pipes =~ s/( +)$//s) { }
628 0 30 if ($o->{'v_compact'} == 2) { }
26 4 elsif ($o->{'v_compact'} == 1 and @daughters == 1) { }
629 0 0 if (@daughters == 1) { }
645 96 127 if $w > $max_width
649 173 50 unless $space_to_add
662 0 0 unless ref $o
673 0 0 defined $this->name ? :
691 68 0 unless $options->{'no_attributes'}
704 0 0 if $node eq $limit or not defined $node->{'mother'} && ref $node->{'mother'}
734 47 0 ref $_[0] eq 'HASH' ? :
753 43 4 if exists $o->{'attributes'}
765 0 71 if ref $o->{'daughters'} and @{$o->{'daughters'};}
780 0 71 if defined $o->{'mother'} and ref $o->{'mother'}
794 43 4 if exists $o->{'name'}
817 0 0 defined $self->mother ? :
832 0 0 unless @daughters
836 0 0 unless @List
846 0 0 unless $mother
849 0 0 if @sisters == 1
853 0 0 if $one eq $it
864 0 0 unless $mother
866 0 0 if @sisters == 1
870 0 0 if $one eq $it
880 0 0 unless ref $seen_r eq 'HASH'
881 0 0 if ref $lol and $seen_r->{$lol}++
886 0 0 unless (ref $lol eq 'ARRAY')
887 0 0 if defined $lol
890 0 0 unless @$lol
895 0 0 unless (ref $options[-1] eq 'ARRAY')
911 0 68 if @_
924 3 65 unless $mother
927 0 65 unless @sisters
931 65 69 if ($sisters[$i] eq $node)
936 0 65 if $ord == -1
944 44 327 if @_
952 0 47 if ref $class
954 43 4 ref $_[0] eq 'HASH' ? :
956 0 47 if $Debug
991 65 3 defined $node->mother ? :
993 0 161 unless $vert_dashes->[$_]
994 34 34 $sibling_count == 1 ? :
1000 43 25 if ($sibling_count == $node->my_daughter_index + 1)
1005 65 3 $depth ? :
1023 0 0 ref $_[1] ? :
1027 0 0 if (ref $class) { }
1042 0 0 if int $max_children < 1
1050 0 0 if $node_count > $max_node_count
1053 0 0 if $node_count > $max_node_count
1055 0 0 if ($depth <= $min_depth) { }
1062 0 0 if $node_count > $max_node_count
1071 0 0 unless @mothers
1086 22 0 if ($s =~ /^(.+)\. Attributes: ({.*})$/) { }
1120 1 21 if ($count == 1) { }
1128 10 11 if ($indent > $last_indent) { }
3 8 elsif ($indent < $last_indent) { }
1165 0 13 unless ref $mother
1166 0 13 unless @daughters
1171 13 0 if ref $_ and defined $_->{'mother'}
1173 0 13 unless @daughters
1198 0 7 if (not defined $this->{'mother'} && ref $this->{'mother'}) { }
1201 0 0 if $replacement->{'mother'}
1212 9 0 unless $_ eq $this
1221 7 0 $_ eq $this ? :
1235 0 0 unless defined $mother and ref $mother
1240 0 0 $_ eq $this ? :
1254 0 0 unless $mother
1256 0 0 if @sisters == 1
1260 0 0 if $seen
1261 0 0 if $one eq $it
1263 0 0 unless $seen
1273 0 0 unless $mother
1275 0 0 if @sisters == 1
1280 0 0 if $seen
1281 0 0 if $one eq $it
1283 0 0 unless $seen
1303 0 0 unless @List
1313 0 65 unless defined $mother and ref $mother
1322 22 0 if @them
1331 0 0 unless ref $seen_r eq 'HASH'
1332 0 0 if ref $lol and $seen_r->{$lol}++
1336 0 0 unless (ref $lol eq 'ARRAY')
1337 0 0 if defined $lol
1354 0 0 unless $mother
1371 22 0 if ($s)
1404 21 22 if ($s =~ /$reg_exp/cg) { }
1406 21 0 defined $8 ? :
0 21 defined $6 ? :
0 21 defined $2 ? :
1426 0 0 unless ref $o
1440 0 0 defined $this->name ? :
1447 0 0 unless ref $out->[0]
1456 0 0 unless ref $o
1459 0 0 unless exists $o->{'multiline'}
1462 0 0 if ($o->{'multiline'}) { }
1481 0 0 defined $this->name ? :
1501 0 0 unless scalar $root->daughters
1505 0 0 unless ref $o
1512 0 0 defined $this->name ? :
1513 0 0 scalar $this->daughters ? :
1523 0 0 unless ref $out->[0]
1532 0 0 unless ref $o
1535 0 0 unless exists $o->{'multiline'}
1538 0 0 if ($o->{'multiline'}) { }
1548 0 0 if (scalar $this->daughters) { }
1554 0 0 defined $this->name ? :
1565 0 0 if scalar $this->daughters
1611 0 0 if defined $mother and ref $mother
1626 131 0 if ref $_
1630 0 131 unless ref $one
1644 0 159 unless ref $o
1646 0 159 unless ref $o->{'callback'} or ref $o->{'callbackback'}
1648 159 0 ref $o->{'callback'} ? :
1649 0 159 ref $o->{'callbackback'} ? :
1652 0 159 if $Debug
1654 0 159 if $Debug
1655 159 0 if $callback
1657 159 0 if ($callback_status) { }
1660 159 0 UNIVERSAL::can($this, 'is_node') ? :
1661 100 59 if (@daughters)
1665 153 0 if UNIVERSAL::can($one, 'is_node')
1671 0 0 if $Debug
1675 0 159 if ($callbackback)
1676 0 0 if (UNIVERSAL::can($this, 'is_node')) { }
1677 0 0 if $Debug
1681 0 0 if $Debug
1685 0 159 if ($Debug)
1686 0 0 if (UNIVERSAL::can($this, 'is_node')) { }