Branch Coverage

blib/lib/Tree/DAG_Node.pm

Criterion	Covered	Total	%
branch	143	410	34.8

line	true	false	branch
22	0	465	unless @daughters
40	0	0	unless @daughters
52	0	465	unless @daughters
63	0	469	unless UNIVERSAL::can($daughter, "is_node")
65	0	469	if $Debug
66	0	469	if $Debug
67	0	469	if $Debug > 1
71	0	469	if $mother eq $daughter
75	0	469	if exists $ancestors{$daughter}
79	0	9	if defined $old_mother and ref $old_mother and $old_mother eq $mother
82	9	460	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	231	700	unless ref $mama
204	450	402	if (@_)
205	0	450	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	134	332	$options->{'no_attributes'} ? :
704	0	0	if $node eq $limit or not defined $node->{'mother'} && ref $node->{'mother'}
726	0	716	unless defined $_
	0	716	unless defined $hashref->{$_}
734	445	0	ref $_[0] eq 'HASH' ? :
753	441	4	if exists $o->{'attributes'}
765	0	469	if ref $o->{'daughters'} and @{$o->{'daughters'};}
780	0	469	if defined $o->{'mother'} and ref $o->{'mother'}
794	441	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	466	if @_
924	6	460	unless $mother
927	0	460	unless @sisters
931	460	9475	if ($sisters[$i] eq $node)
936	0	460	if $ord == -1
944	442	725	if @_
952	0	445	if ref $class
954	441	4	ref $_[0] eq 'HASH' ? :
956	0	445	if $Debug
991	460	6	defined $node->mother ? :
993	0	770	unless $vert_dashes->[$_]
994	37	429	$sibling_count == 1 ? :
1000	101	365	if ($sibling_count == $node->my_daughter_index + 1)
1005	460	6	$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	420	0	if ($s =~ /^(.+)\. Attributes: (\{.*\})$/) { }
1124	4	416	if ($count == 1) { }
1132	65	351	if ($indent > $last_indent) { }
	53	298	elsif ($indent < $last_indent) { }
1169	0	13	unless ref $mother
1170	0	13	unless @daughters
1175	13	0	if ref $_ and defined $_->{'mother'}
1177	0	13	unless @daughters
1202	0	7	if (not defined $this->{'mother'} && ref $this->{'mother'}) { }
1205	0	0	if $replacement->{'mother'}
1216	9	0	unless $_ eq $this
1225	7	0	$_ eq $this ? :
1239	0	0	unless defined $mother and ref $mother
1244	0	0	$_ eq $this ? :
1258	0	0	unless $mother
1260	0	0	if @sisters == 1
1264	0	0	if $seen
1265	0	0	if $one eq $it
1267	0	0	unless $seen
1277	0	0	unless $mother
1279	0	0	if @sisters == 1
1284	0	0	if $seen
1285	0	0	if $one eq $it
1287	0	0	unless $seen
1307	0	0	unless @List
1317	0	460	unless defined $mother and ref $mother
1326	22	0	if @them
1335	0	0	unless ref $seen_r eq "HASH"
1336	0	0	if ref $lol and $seen_r->{$lol}++
1340	0	0	unless (ref $lol eq "ARRAY")
1341	0	0	if defined $lol
1358	0	0	unless $mother
1375	420	0	if ($s)
1408	680	420	if ($s =~ /$reg_exp/cg) { }
1410	680	0	defined $8 ? :
	0	680	defined $6 ? :
	0	680	defined $2 ? :
1430	0	0	unless ref $o
1444	0	0	defined $this->name ? :
1451	0	0	unless ref $out->[0]
1460	0	0	unless ref $o
1463	0	0	unless exists $o->{'multiline'}
1466	0	0	if ($o->{'multiline'}) { }
1485	0	0	defined $this->name ? :
1505	0	0	unless scalar $root->daughters
1509	0	0	unless ref $o
1516	0	0	defined $this->name ? :
1517	0	0	scalar $this->daughters ? :
1527	0	0	unless ref $out->[0]
1536	0	0	unless ref $o
1539	0	0	unless exists $o->{'multiline'}
1542	0	0	if ($o->{'multiline'}) { }
1552	0	0	if (scalar $this->daughters) { }
1558	0	0	defined $this->name ? :
1569	0	0	if scalar $this->daughters
1615	0	0	if defined $mother and ref $mother
1630	9932	0	if ref $_
1634	0	9932	unless ref $one
1648	0	557	unless ref $o
1650	0	557	unless ref $o->{'callback'} or ref $o->{'callbackback'}
1652	557	0	ref $o->{'callback'} ? :
1653	0	557	ref $o->{'callbackback'} ? :
1656	0	557	if $Debug
1658	0	557	if $Debug
1659	557	0	if $callback
1661	557	0	if ($callback_status) { }
1664	557	0	UNIVERSAL::can($this, 'is_node') ? :
1665	155	402	if (@daughters)
1669	548	0	if UNIVERSAL::can($one, "is_node")
1675	0	0	if $Debug
1679	0	557	if ($callbackback)
1680	0	0	if (UNIVERSAL::can($this, 'is_node')) { }
1681	0	0	if $Debug
1685	0	0	if $Debug
1689	0	557	if ($Debug)
1690	0	0	if (UNIVERSAL::can($this, 'is_node')) { }