Branch Coverage

blib/lib/Graph/ModularDecomposition.pm
Criterion Covered Total %
branch 168 176 95.4


line true false branch
138 13 12 if (ref $class)
140 13 12 $Debug ? :
13 12 $Debug ? :
168 166 0 if (ref $class)
170 165 1 unless defined $cf
188 65 323 ref $self ? :
214 5 23 if (ref $class)
218 13 15 index($pairs, '-') >= 0 ? :
221 72 189 if $Debug > 2
222 254 7 if ($q) { }
223 251 3 unless $g->has_edge($p, $q)
225 4 3 unless $g->has_vertex($p)
250 3 36 if $Debug
268 49 1267 if $Debug > 1
272 49 1267 if $Debug > 1
291 23 562 if $Debug > 1
293 381 4 unless grep(($x eq $_), @X)
295 23 562 if $Debug > 1
315 1 79 if ($Debug > 2)
317 1 79 if ($Debug > 1)
340 3 124 if $Debug > 1
341 3 124 if $Debug > 1
343 3 124 if $Debug > 1
345 3 124 if $Debug > 1
346 22 105 if ($newnode ne $a)
349 1 19 if $Debug > 2
350 20 0 unless $GP->has_edge($p, $newnode)
354 4 36 if $Debug > 2
355 40 0 unless $GP->has_edge($newnode, $p)
379 19 458 if $Debug > 1
382 33 756 if $Debug > 2
383 183 606 if ($G->has_edge($w, $x)) { }
384 2 181 if ($G->has_edge($x, $w)) { }
386 1 1 if $Debug > 2
389 6 175 if $Debug > 2
392 178 428 if ($G->has_edge($x, $w)) { }
394 7 171 if $Debug > 2
397 19 409 if $Debug > 2
418 2 67 if $Debug > 1
421 2 67 if $Debug > 1
424 2 67 if $Debug > 1
429 19 451 if $Debug > 1
432 23 560 if $Debug > 1
435 401 182 if (@{$tempset;}) { }
436 17 384 if $Debug > 1
460 10 350 if $Debug > 1
461 10 350 if $Debug > 1
462 10 350 if $Debug > 1
463 10 350 if $Debug > 1
466 10 350 if $Debug > 1
485 3 49 if $Debug
487 52 131 if $v eq $x
488 3 128 if $Debug > 1
491 262 350 if $v eq $y or $x eq $y
492 6 344 if $Debug > 1
493 188 162 if ($g->distinguishes($x, $y, $v))
494 188 0 unless $G->has_edge($x, $y)
498 3 49 if $Debug
517 6 174 unless defined $$t{'type'}
518 49 125 if $$t{'type'} ne 'leaf'
519 10 164 if $$t{'type'} eq 'complete'
521 49 125 if ($$t{'type'} ne 'leaf')
579 9 105 if $Debug
581 7 2 defined $v ? :
9 105 if $Debug
584 3 111 unless ($v)
585 2 1 if $Debug
591 7 104 if ($g->canonical_form) { }
598 70 41 if (scalar $g->vertices == 1)
599 5 65 if $Debug
607 2 39 if $Debug
609 2 39 if $Debug
614 2 51 if $Debug
619 3 50 if ($g->canonical_form) { }
635 77 0 unless grep(($F eq $_), @F)
638 2 51 if $Debug
639 11 42 if (@f == 1 and @F > 1) { }
644 10 32 if ($g->has_edge($v, $x) == $g->has_edge($x, $v)) { }
646 0 10 $g->has_edge($v, $x) ? :
652 2 51 if $Debug
656 8 69 if (defined $$m{'col'} and $$u{'col'} eq $$m{'col'} and $$u{'type'} eq 'complete' && $$m{'type'} eq 'complete' || $$u{'type'} eq 'linear' && $$m{'type'} eq 'linear') { }
663 0 8 if ($Debug)
680 2 39 if $Debug
705 3 33 unless $g->check_transitive
707 7 26 if $s =~ /^primitive\[[^\]]+\]\([^\(]*$/
708 1 25 if $s =~ /primitive/ and $s =~ /complete_|linear/
709 24 1 unless $s =~ /primitive|complete_1/
710 1 0 if $s =~ /primitive|complete_1/