| line |
true |
false |
branch |
|
50
|
74 |
0 |
if (!sv_isobject(self) || !sv_derived_from(self, "Digest::SHA3")) |
|
|
0 |
74 |
if (!sv_isobject(self) || !sv_derived_from(self, "Digest::SHA3")) |
|
52
|
74 |
0 |
return INT2PTR(SHA3 *, SvIV(SvRV(self))); |
|
82
|
0 |
18 |
if (!shainit(state, alg)) { |
|
99
|
0 |
0 |
if ((state = getSHA3(aTHX_ self)) == NULL) |
|
143
|
0 |
12 |
if (!shainit(&sha3, ix2alg[ix])) |
|
145
|
12 |
12 |
for (i = 0; i < items; i++) { |
|
146
|
12 |
0 |
data = (UCHR *) (SvPVbyte(ST(i), len)); |
|
147
|
244 |
12 |
while (len > MAX_WRITE_SIZE) { |
|
156
|
0 |
12 |
if (ix % 3 == 0) { |
|
160
|
12 |
0 |
else if (ix % 3 == 1) |
|
177
|
0 |
0 |
if ((state = getSHA3(aTHX_ self)) == NULL) |
|
179
|
0 |
0 |
RETVAL = ix ? state->alg : state->digestlen << 3; |
|
192
|
0 |
0 |
if ((state = getSHA3(aTHX_ self)) == NULL) |
|
194
|
0 |
0 |
for (i = 1; i < items; i++) { |
|
195
|
0 |
0 |
data = (UCHR *) (SvPVbyte(ST(i), len)); |
|
196
|
0 |
0 |
while (len > MAX_WRITE_SIZE) { |
|
218
|
0 |
33 |
if ((state = getSHA3(aTHX_ self)) == NULL) |
|
222
|
0 |
33 |
if (ix == 0) { |
|
226
|
17 |
16 |
else if (ix == 1) |
|
228
|
0 |
16 |
else if (ix == 2) |
|
231
|
0 |
16 |
if ((result = (char *) shasqueeze(state)) == NULL) |
|
236
|
17 |
16 |
if (ix != 3) |
|
250
|
0 |
0 |
if (!f || (state = getSHA3(aTHX_ self)) == NULL) |
|
|
0 |
0 |
if (!f || (state = getSHA3(aTHX_ self)) == NULL) |
|
252
|
0 |
0 |
while ((n = PerlIO_read(f, in, sizeof(in))) > 0) |
|
268
|
0 |
0 |
if (!f || (state = getSHA3(aTHX_ self)) == NULL) |
|
|
0 |
0 |
if (!f || (state = getSHA3(aTHX_ self)) == NULL) |
|
270
|
0 |
0 |
while ((n = PerlIO_read(f, in+1, IO_BUFFER_SIZE)) > 0) { |
|
271
|
0 |
0 |
for (dst = in, src = in + 1; n; n--) { |
|
273
|
0 |
0 |
if (!cr) { |
|
274
|
0 |
0 |
if (c == '\015') |
|
280
|
0 |
0 |
if (c == '\015') |
|
282
|
0 |
0 |
else if (c == '\012') { |
|
295
|
0 |
0 |
if (cr) { |