Branch Coverage

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


line true false branch
25 0 0 if ($crypt_len % 8 or $crypt_len < 16)
45 0 0 if (substr($plain, -7, 7) ne "\000\000\000\000\000\000\000")
73 0 0 if $head_pad_len