| line |
true |
false |
branch |
|
138
|
0 |
0 |
unless ($_ eq 'hashval') |
|
150
|
0 |
37 |
if @_ |
|
157
|
0 |
0 |
if @_ |
|
173
|
1 |
1 |
if (@_ == 1) { } |
|
|
1 |
0 |
elsif (@_ % 2 == 0) { } |
|
192
|
46 |
0 |
wantarray ? : |
|
230
|
1 |
29 |
if (@_) |
|
241
|
0 |
2 |
if (ref $s) { } |
|
|
2 |
0 |
elsif (not defined $s) { } |
|
250
|
16 |
16 |
if exists $$actions{'prebucket'} |
|
255
|
26 |
0 |
if exists $$actions{'node'} |
|
257
|
0 |
32 |
if exists $$actions{'postbucket'} |
|
270
|
0 |
13 |
if (my $node = $self->_search_bucket($bucket, $key, $hash)) { } |
|
276
|
1 |
12 |
if $self->is_full and not $head_node |
|
309
|
0 |
1 |
if DEBUG($self->size($ns)) |
|
314
|
0 |
8 |
if DEBUG() |
|
316
|
8 |
3 |
$prev ? : |
|
319
|
0 |
11 |
if DEBUG() |
|
321
|
0 |
11 |
if DEBUG() |
|
323
|
6 |
5 |
if (($hash & $ns - 1) != $i) { } |
|
324
|
0 |
6 |
if DEBUG() |
|
327
|
3 |
3 |
if ($prev) { } |
|
355
|
0 |
9 |
if $h == $node->hash and $k eq $node->key |
|
369
|
22 |
88 |
if @_ > 2 |
|
382
|
0 |
0 |
unless $cur->hash == $h and $cur->key eq $key |
|
383
|
0 |
0 |
if ($prev) { } |
|
413
|
1 |
0 |
unless $x & $x - 1 |
|
440
|
13 |
0 |
if $VERSION >= 5.006 |
|
568
|
1 |
45 |
if (defined $value) |
|
578
|
0 |
1 |
if (not defined $fh) { } |
|
|
0 |
1 |
elsif (not defined fileno $fh) { } |
|
581
|
0 |
0 |
unless open FH, "< $fh" |
|
604
|
15 |
1 |
if $bucket_no > 0 |
|
606
|
9 |
7 |
if ($nonempty) |
|
674
|
22 |
82 |
if @_ |