Branch Coverage

blib/lib/IETF/ACE.pm
Criterion Covered Total %
branch 18 130 13.8


line true false branch
92 0 0 if ($WhichChar % 2 == 1)
95 0 0 if ($TempPos == 0) { }
0 0 elsif ($TempPos == 1) { }
0 0 elsif ($TempPos == 2) { }
0 0 elsif ($TempPos == 3) { }
110 0 0 unless (grep /[GHIJKLMNOPQRSTUV]/, $FirstChar)
118 0 0 if length $InString == 0
133 0 0 if ($i % 2 == 0) { }
137 0 0 if $Nibble eq "\000" and not $HaveSeenFirst
138 0 0 if ($HaveSeenFirst) { }
161 0 1 if (&CheckForSTD13Name($InStr))
166 1 4 unless ($UpperSeen{$InArr[$InputPointer]})
171 1 0 if ($#UpperUniq == 0) { }
0 0 elsif ($#UpperUniq == 1) { }
175 0 0 if ($UpperUniq[0] eq "\000") { }
0 0 elsif ($UpperUniq[1] eq "\000") { }
184 0 1 if ($DoStep3) { }
188 0 1 if ($U1 ge "\330" and $U1 le "\334")
198 0 5 if ($U2 eq "\000" and $N1 eq "\231")
200 5 0 if ($U2 eq $U1 and $N1 ne "\377") { }
0 0 elsif ($U2 eq $U1 and $N1 eq "\377") { }
208 0 1 if (length $CompString >= 37)
221 0 0 unless (substr($InString, 0, length $RACEPrefix) eq $RACEPrefix)
231 0 0 if ($#DeArr < 1)
234 0 0 if (not $U1 eq "\330") { }
238 0 0 if (not $N1 eq "\377") { }
239 0 0 if ($U1 eq "\000" and $N1 eq "\231")
243 0 0 if ($i > $#DeArr)
247 0 0 if ($N1 eq "\231") { }
253 0 0 if (length($OutString) % 2 == 1)
258 0 0 if (length($LCheck) % 2 == 1)
264 0 0 unless ($UpperSeen{$CheckArr[$InputPointer]})
270 0 0 if ($#UpperUniq == 0 or $#UpperUniq == 1 and $UpperUniq[0] eq "\000" || $UpperUniq[1] eq "\000")
276 0 0 if (length($LCheck) % 2 == 1)
282 0 0 if (&CheckForSTD13Name($OutString))
284 0 0 if (&CheckForBadSurrogates($OutString))
299 0 0 if (&CheckForSTD13Name($InStr))
302 0 0 if (length($InStr) % 2 == 1 or length $InStr < 2)
310 0 0 unless $InArr[$i] eq $High
318 0 0 if (length $OutputBuffer <= length $InStr) { }
324 0 0 if (length $CompString >= 37)
339 0 0 unless (substr($InString, 0, length $LACEPrefix) eq $LACEPrefix)
348 0 0 if ($#DeArr < 1)
351 0 0 if (not $DeArr[$InputPointer] eq "\377") { }
354 0 0 if ($Count == 0 or $Count > 36)
356 0 0 if (++$InputPointer == $#DeArr)
360 0 0 if ($InputPointer == $#DeArr)
366 0 0 if (length $OutputBuffer > length $InString) { }
0 0 elsif (length($OutputBuffer) % 2 == 1) { }
373 0 0 if (length($OutputBuffer) % 2 == 1)
382 0 0 if $LArr[$LPtr] ne $High
390 0 0 if (length $CompBuffer <= length $OutputBuffer) { }
395 0 0 if (&CheckForSTD13Name($OutString))
397 0 0 if (&CheckForBadSurrogates($OutString))
414 1 0 if (length($CompBits) % 5 != 0)
436 0 0 if ($InputCheck == 1 or $InputCheck == 3 or $InputCheck == 6)
457 0 0 unless (index($PaddingContent, '1') == -1)
482 1 0 if ($Upper ne "\000" or index($STD13Chars, $Lower) == -1)
498 0 0 if ($CheckPtr + 2 >= $#CheckArr and index($HighSurr . $LowSurr, $CheckArr[$CheckPtr]) > -1)
504 0 0 unless defined $CheckArr[$CheckPtr + 4]
507 0 0 if (index($HighSurr, $Upper1) > -1 and index($LowSurr, $Upper2) == -1 or index($HighSurr, $Upper1) == -1 and index($LowSurr, $Upper2) > -1)
534 42 54 if (defined $OctetIn[$i])
541 9 33 if ($j % 4 == 3)
542 26 16 if (ord $OctetIn[$j] < 20 or ord $OctetIn[$j] > 126) { }
564 0 7 if ($Debug)