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) { } |