line |
true |
false |
branch |
35
|
13 |
5 |
if defined $alg |
36
|
13 |
5 |
if defined $alg |
37
|
0 |
18 |
if (ref $class) |
38
|
0 |
0 |
if (not defined $alg or $alg == $class->algorithm) |
42
|
0 |
0 |
&shainit($class, $alg) ? : |
44
|
5 |
13 |
unless defined $alg |
52
|
18 |
5 |
if (defined $nbits) |
54
|
0 |
18 |
if $nbits > $max |
56
|
17 |
6 |
if ($lsb) |
60
|
5 |
1 |
unless (defined $nbits) |
64
|
6 |
0 |
if ($nbits % 8) |
89
|
0 |
0 |
unless (defined $_can_T_filehandle) |
92
|
0 |
0 |
$@ ? : |
93
|
0 |
0 |
$_can_T_filehandle ? : |
95
|
0 |
0 |
$_can_T_filehandle ? : |
108
|
0 |
0 |
unless defined $n |
116
|
0 |
0 |
unless ref \$file eq 'SCALAR' |
118
|
0 |
0 |
defined $mode ? : |
126
|
0 |
0 |
unless $file eq '-' and open FH, '< -' or sysopen FH, $file, 0 |
130
|
0 |
0 |
if ($BITS) |
135
|
0 |
0 |
if (length $bits >= 4096) |
140
|
0 |
0 |
if length $bits > 0 |
141
|
0 |
0 |
unless defined $n |
146
|
0 |
0 |
if $binary or $UNIVERSAL |
147
|
0 |
0 |
if ($UNIVERSAL and _istext(*FH, $file)) { } |