| line |
true |
false |
branch |
|
93
|
1 |
15 |
if (!inited) { |
|
101
|
16 |
1 |
if (time_last != time_now) { |
|
106
|
0 |
1 |
if (uuids_this_tick < UUIDS_PER_TICK) { |
|
118
|
1 |
0 |
if (!inited) { |
|
230
|
6006 |
1001 |
for(i = 0; i < 6; i++ ) |
|
237
|
6 |
1 |
for(i = 0; i < 6; i++ ) |
|
242
|
102 |
17 |
for(from = (const unsigned char*)&u, to = (unsigned char*)buf, i = sizeof(u); i > 0; i -= 3, from += 3) { |
|
278
|
0 |
1004 |
PUSHMARK(SP); |
|
279
|
0 |
1004 |
XPUSHs(sv_2mortal(newSVpv("Digest::MD5", 0))); |
|
285
|
0 |
1004 |
if ( rcount != 1 ) |
|
291
|
1004 |
0 |
FREETMPS; |
|
301
|
0 |
2005 |
PUSHMARK(SP); |
|
302
|
0 |
2005 |
XPUSHs(ctx); |
|
303
|
0 |
2005 |
XPUSHs(data); |
|
310
|
2005 |
0 |
FREETMPS; |
|
323
|
0 |
1004 |
PUSHMARK(SP); |
|
324
|
0 |
1004 |
XPUSHs(sv_2mortal(ctx)); |
|
330
|
0 |
1004 |
if ( rcount != 1 ) |
|
335
|
0 |
1004 |
if ( len != 16 ) |
|
341
|
1004 |
0 |
FREETMPS; |
|
390
|
16 |
0 |
if ( self->state.ts == I64(0) || |
|
391
|
1 |
15 |
memcmp(&(self->nodeid), &(self->state.node), sizeof(uuid_node_t))) |
|
393
|
0 |
15 |
else if (timestamp <= self->state.ts) |
|
442
|
0 |
2 |
CHECK(u1->time_low, u2->time_low); |
|
|
0 |
0 |
CHECK(u1->time_low, u2->time_low); |
|
443
|
0 |
2 |
CHECK(u1->time_mid, u2->time_mid); |
|
|
0 |
0 |
CHECK(u1->time_mid, u2->time_mid); |
|
444
|
0 |
2 |
CHECK(u1->time_hi_and_version, u2->time_hi_and_version); |
|
|
0 |
0 |
CHECK(u1->time_hi_and_version, u2->time_hi_and_version); |
|
445
|
0 |
2 |
CHECK(u1->clock_seq_hi_and_reserved, u2->clock_seq_hi_and_reserved); |
|
|
0 |
0 |
CHECK(u1->clock_seq_hi_and_reserved, u2->clock_seq_hi_and_reserved); |
|
446
|
0 |
2 |
CHECK(u1->clock_seq_low, u2->clock_seq_low); |
|
|
0 |
0 |
CHECK(u1->clock_seq_low, u2->clock_seq_low); |
|
447
|
12 |
2 |
for (i = 0; i < 6; i++) { |
|
448
|
0 |
12 |
if (u1->node[i] < u2->node[i]) |
|
450
|
0 |
12 |
if (u1->node[i] > u2->node[i]) |
|
464
|
18 |
0 |
ST(0) = make_ret(*uuid, ix ? ix : F_STR); |
|
487
|
1 |
0 |
if ( from[0] == '0' && from[1] == 'x' ) |
|
|
1 |
0 |
if ( from[0] == '0' && from[1] == 'x' ) |
|
489
|
16 |
1 |
for (i = 0; i < sizeof(perl_uuid_t); i++) { |
|
490
|
0 |
16 |
if (*from == '-') |
|
492
|
0 |
16 |
if (sscanf(from, "%2x", &c) != 1) |
|
503
|
6 |
0 |
while(from < (str + strlen(str))) { |
|
507
|
24 |
0 |
if (c != 255) buf[i++] = (unsigned char)c; |
|
508
|
1 |
23 |
if (from == (str + strlen(str))) |
|
510
|
18 |
5 |
} while (i < 4); |
|
512
|
6 |
0 |
if (buf[0] == 254 || buf[1] == 254) |
|
|
6 |
0 |
if (buf[0] == 254 || buf[1] == 254) |
|
516
|
1 |
5 |
if (buf[2] == 254) break; |
|
519
|
0 |
5 |
if (buf[3] == 254) break; |