Branch Coverage

blib/lib/Webqq/Encryption/TEA/Perl.pm
Criterion Covered Total %
branch 0 54 0.0


line true false branch
17 0 0 if (not $y or $y > 4)
37 0 0 unless (@$B)
43 0 0 if (length $A == 1)
62 0 0 unless ($A)
79 0 0 if $a != 0
90 0 0 if ($a < 8)
94 0 0 if ($a == 8)
96 0 0 if ($m) { }
116 0 0 if ($a < 8)
120 0 0 if ($a == 8)
122 0 0 if ($m) { }
143 0 0 if ($a < 8)
147 0 0 if ($a == 8)
149 0 0 if ($m) { }
176 0 0 if ($y % 8 != 0 or $y < 16)
182 0 0 if $B < 0
192 0 0 if ($a < 8)
196 0 0 if ($a == 8)
199 0 0 unless (f())
204 0 0 if ($a < 8)
210 0 0 if ($a == 8)
213 0 0 unless (f())
218 0 0 if ($a < 8)
219 0 0 if (($z[$t + $a] ^ $w[$a]) != 0)
224 0 0 if ($a == 8)
227 0 0 unless (f())
298 0 0 if ($B) { }