Branch Coverage

blib/lib/Text/DAWG.pm
Criterion Covered Total %
branch 52 126 41.2


line true false branch
196 0 2 if ($fh)
254 74 1 unless ($nextix)
282 13 63 if (vec $match, $nodeix, 1) { }
288 2 0 if (@match)
291 2 0 if (@nomatch)
314 40 90 if (@{$group;} > 1) { }
329 2 5 if @groups == @{$groups;}
352 72 6 if ($depth > $maxdepth)
359 0 147 unless $$a[0] <=> $$b[0]
384 0 0 if (vec $oldmatch, $nodeix, 1)
407 67 247 if (vec $node, $charix, 32)
426 214 30 unless $charix
462 67 247 if ($nextix)
469 2 58 if (vec $triematch, $trieix, 1)
505 30 214 if ($charix)
517 2 0 if length $map
521 56 2 if length $node
542 0 2 unless defined $got
544 0 2 unless $got == 16
547 0 2 unless $magic eq 'dAWg'
549 0 2 unless $version == 1
551 0 2 unless $sizessize >= 1
554 2 0 if ($mapsize > 0) { }
558 0 2 unless defined $got
560 0 2 unless $got == $mapsize
569 0 30 if (vec $charmap, $ord, 32)
582 0 2 unless defined $got
584 0 2 unless $got == $sizessize
593 0 2 unless defined $got
595 0 2 unless $got == $matchsize
608 56 2 if ($nodesize > 0) { }
612 0 56 unless defined $got
614 0 56 unless $got == $nodesize
618 0 56 unless $nodewidth <= $width
620 0 56 unless vec $node, $nodewidth - 1, 32
626 237 67 unless $nextix
627 0 67 if ($nextix > $nodecnt or $nextix <= $nodeix)
634 0 2 unless $nodecnt == 1 or vec $$self{'match'}, $nodeix, 1
642 0 6 unless vec $used, $charix, 1
647 0 4 unless vec $reachable, $nodeix, 1
661 0 0 if ($id =~ /$dot_id_re/) { }
735 0 0 unless $charix
757 0 0 if (defined $id)
762 0 0 if ($nullattrs ne '')
771 0 0 if ($classattrs ne '')
776 0 0 if ($$options{'readable'}) { }
781 0 0 if (vec $match, $nodeix, 1) { }
782 0 0 if ($nodeix == 1) { }
788 0 0 if ($nodeix == 1) { }
794 0 0 if ($attrs ne '')
802 0 0 unless $nextix
804 0 0 unless $$options{'chars'}{$char}
817 0 0 if (vec $match, 1, 1) { }
823 0 0 if ($startattrs ne '')
824 0 0 if ($startattrs eq $matchattrs) { }
830 0 0 if ($matchattrs ne '')
832 0 0 if (vec $match, $nodeix, 1)
836 0 0 if (@matchids >= 26 / (length($matchattrs) + 8) + 1) { }
857 0 0 unless $nextix
866 0 0 unless $$options{'chars'}{$char}
871 0 0 if (@{$edges;} >= 26 / (length($attrs) + 8) + 1) { }
885 0 0 if (defined(my $groups = $$self{'groups'}))
890 0 0 if (@{$nodes;} >= 2)