| line |
true |
false |
branch |
|
102
|
0 |
22 |
unless (eval {
do {
require Digest::SHA;
'Digest::SHA'->import('sha1');
1
}
})
|
|
179
|
539 |
77 |
if (defined $scanner->{'hashcash_value'})
|
|
192
|
77 |
0 |
if (scalar @hdrs == 0)
|
|
198
|
0 |
0 |
if ($value)
|
|
212
|
0 |
0 |
unless ($hc)
|
|
216
|
0 |
0 |
if ($hc =~ m[^[-A-Za-z0-9\xA0-\xFF:_/\%\@\.\,\= \*\+\;]+$])
|
|
219
|
0 |
0 |
unless ($hc)
|
|
222
|
0 |
0 |
if ($hc =~ /^0:/) { }
|
|
|
0 |
0 |
elsif ($hc =~ /^1:/) { }
|
|
235
|
0 |
0 |
unless ($trial)
|
|
241
|
0 |
0 |
unless ($self->_check_hashcash_resource($scanner, $accept, $rsrc))
|
|
252
|
0 |
0 |
if $bitstring =~ /^(0+)/
|
|
258
|
0 |
0 |
if ($bits and $value > $bits)
|
|
264
|
0 |
0 |
if ($self->was_hashcash_token_double_spent($scanner, $hc))
|
|
277
|
0 |
0 |
unless ($main->{'conf'}{'hashcash_doublespend_path'})
|
|
281
|
0 |
0 |
unless (&HAS_DB_FILE())
|
|
288
|
0 |
0 |
stat $parentdir ? :
|
|
289
|
0 |
0 |
if ($stat_errn == 0 and not -d _) { }
|
|
|
0 |
0 |
elsif ($stat_errn == 2) { }
|
|
299
|
0 |
0 |
unless (tie %spenddb, 'DB_File', $path, 66, oct $main->{'conf'}{'hashcash_doublespend_file_mode'} & 438)
|
|
307
|
0 |
0 |
if (exists $spenddb{$token})
|
|
326
|
0 |
0 |
if (defined $list->{$addr})
|
|
335
|
0 |
0 |
if ($addr =~ /$regexp/i)
|