| line |
true |
false |
branch |
|
36
|
13 |
5 |
if defined $alg |
|
37
|
13 |
5 |
if defined $alg |
|
38
|
0 |
18 |
if (ref $class) |
|
39
|
0 |
0 |
if (not defined $alg or $alg == $class->algorithm) |
|
43
|
0 |
0 |
&shainit($class, $alg) ? : |
|
45
|
5 |
13 |
unless defined $alg |
|
53
|
18 |
5 |
if (defined $nbits) |
|
55
|
0 |
18 |
if $nbits > $max |
|
57
|
17 |
6 |
if ($lsb) |
|
61
|
5 |
1 |
unless (defined $nbits) |
|
65
|
6 |
0 |
if ($nbits % 8) |
|
90
|
0 |
0 |
unless (defined $_can_T_filehandle) |
|
93
|
0 |
0 |
$@ ? : |
|
94
|
0 |
0 |
$_can_T_filehandle ? : |
|
96
|
0 |
0 |
$_can_T_filehandle ? : |
|
109
|
0 |
0 |
unless defined $n |
|
117
|
0 |
0 |
unless ref \$file eq "SCALAR" |
|
119
|
0 |
0 |
defined $mode ? : |
|
129
|
0 |
0 |
if ($file eq '-') { } |
|
130
|
0 |
0 |
if (-d STDIN) |
|
131
|
0 |
0 |
unless sysopen FH, getcwd(), 2 |
|
134
|
0 |
0 |
unless open FH, "< -" |
|
138
|
0 |
0 |
-d $file ? : |
|
|
0 |
0 |
unless sysopen FH, $file, -d $file ? 2 : 0 |
|
142
|
0 |
0 |
if ($BITS) |
|
147
|
0 |
0 |
if (length $bits >= 4096) |
|
152
|
0 |
0 |
if length $bits > 0 |
|
153
|
0 |
0 |
unless defined $n |
|
158
|
0 |
0 |
if $binary or $UNIVERSAL |
|
159
|
0 |
0 |
if ($UNIVERSAL and _istext(*FH, $file)) { } |