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