Branch Coverage

blib/lib/Lingua/Anagrams.pm
Criterion Covered Total %
branch 118 140 84.2


line true false branch
22 0 12 unless ref $wl eq 'ARRAY'
28 5 7 if (ref $$wl[0] eq 'ARRAY') { }
41 37 7 if (defined $offset) { }
42 1 36 if $o < $offset
75 2 14 unless @list
80 2 2 if @$prior >= @$list
83 1 1 unless $set{$word}
93 0 32 unless length($word // '')
111 47 32 if ($i) { }
127 160 538 if ($c == -1 or $c >= @$level) { }
128 71 89 if @stack == 1
137 388 150 if ($l) { }
138 245 143 if ($c) { }
139 149 96 if ($$counts[$c]) { }
150 83 60 if ($total) { }
177 0 8 unless length $phrase
180 3 5 if (exists $opts{'sorted'}) { }
186 2 6 if (exists $opts{'min'}) { }
194 1 7 if ($i)
195 0 1 unless defined $pairs[$i]
196 1 0 if $i < 0
207 0 8 unless _all_known($counts)
210 0 8 unless @anagrams
211 0 8 if $min and @anagrams < $min
215 4 4 if ($sort)
216 9 15 @$a <= @$b ? :
218 9 15 $ordered == 1 ? :
221 24 3 if $c
230 1 26 if (@_ == 1) { }
232 0 1 unless 'HASH' eq ref $r
252 1 6 if ($i)
253 0 1 unless defined $pairs[$i]
254 1 0 if $i < 0
257 0 7 unless length $phrase
276 7 47 unless $rv
278 26 21 if $c{$key}++
281 5 16 if ($$opts{'sorted'})
298 96 103 unless ($i)
299 49 47 if (@t) { }
302 0 49 unless _all_known($counts)
304 0 49 unless _worth_pursuing($counts, $words)
312 45 107 unless ($rv)
328 45 192 unless @pairs
329 112 80 if ($$opts{'random'})
331 47 65 if ($i)
338 89 103 unless (ref $s eq 'CODE')
339 42 47 if (_any($s)) { }
353 85 107 unless ($remainder)
370 69 68 unless $c = $$counts[$i]
372 68 21 if $$_[1][$i] < $c
383 36 49 if $$counts[$i]
403 36 34 if $$counts[$i]
415 0 57 if @$counts > @$known
417 0 265 if $$counts[$i] and not $$known[$i]
429 12 6 if (defined $lowest) { }
430 6 6 if $c < $lowest
462 59 444 if $_
472 25 0 if ($total <= $limit)
475 3 22 if $cached
479 22 0 if (_all_touched($counts, $words))
482 17 19 if (_any($c)) { }
491 0 39 $seen{join ' ', (sort {$a <=> $b;} @$_)}++ ? :
496 22 0 if $key
509 26 114 unless $c = $$counts[$_]
511 75 39 if $$wc[$_] < $c
516 0 22 unless @good_indices
518 73 36 unless $_
519 0 36 unless $tallies[$_]
525 73 36 unless $_
527 22 14 if (not $best or $n < $min)