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')) { }