Branch Coverage

blib/lib/Lingua/Anagrams.pm
Criterion Covered Total %
branch 114 140 81.4


line true false branch
22 0 7 unless ref $wl eq 'ARRAY'
28 1 6 if (ref $$wl[0] eq 'ARRAY') { }
36 0 8 unless @$words
37 0 8 if ref $$words[0]
42 0 8 unless @all_words > $s1
46 0 7 unless @tries
63 0 32 unless length($word // '')
81 47 32 if ($i) { }
97 160 538 if ($c == -1 or $c >= @$level) { }
98 71 89 if @stack == 1
107 388 150 if ($l) { }
108 245 143 if ($c) { }
109 149 96 if ($$counts[$c]) { }
123 83 60 if ($total) { }
150 0 8 unless length $phrase
153 3 5 if (exists $opts{'sorted'}) { }
159 2 6 if (exists $opts{'min'}) { }
167 1 7 if ($i)
168 0 1 unless defined $pairs[$i]
169 1 0 if $i < 0
179 0 8 unless _all_known($counts)
183 0 8 unless @anagrams
184 0 8 if $min and @anagrams < $min
191 4 4 if ($sort)
192 9 15 @$a <= @$b ? :
194 9 15 $ordered == 1 ? :
197 24 3 if $c
206 1 21 if (@_ == 1) { }
208 0 1 unless 'HASH' eq ref $r
228 1 6 if ($i)
229 0 1 unless defined $pairs[$i]
230 1 0 if $i < 0
233 0 7 unless length $phrase
253 7 47 unless $rv
255 26 21 if $c{$key}++
258 7 26 unless ($reverse_cache{$j})
264 5 16 if ($$opts{'sorted'})
281 96 103 unless ($i)
282 49 47 if (@t) { }
285 0 49 unless _all_known($counts)
287 0 49 unless _worth_pursuing($counts, $words)
295 45 107 unless ($rv)
311 45 192 unless @pairs
312 112 80 if ($$opts{'random'})
314 47 65 if ($i)
321 89 103 unless (ref $s eq 'CODE')
322 42 47 if (_any($s)) { }
336 85 107 unless ($remainder)
353 69 68 unless $c = $$counts[$i]
355 68 21 if $$_[1][$i] < $c
366 36 1509 if $$counts[$i]
386 36 1494 if $$counts[$i]
398 0 57 if @$counts > @$known
400 0 5767 if $$counts[$i] and not $$known[$i]
411 12 6 if (defined $lowest) { }
412 6 6 if $c < $lowest
444 59 12489 if $_
454 25 0 if ($total <= $limit)
457 3 22 if $cached
461 22 0 if (_all_touched($counts, $words))
464 17 19 if (_any($c)) { }
473 0 39 $seen{join ' ', (sort {$a <=> $b;} @$_)}++ ? :
478 22 0 if $key
491 26 114 unless $c = $$counts[$_]
493 75 39 if $$wc[$_] < $c
498 0 22 unless @good_indices
500 2205 36 unless $_
501 0 36 unless $tallies[$_]
507 2205 36 unless $_
509 22 14 if (not $best or $n < $min)