| line |
true |
false |
branch |
|
17
|
1 |
8 |
unless $allowed{$k} |
|
22
|
1 |
5 |
unless defined $capacity |
|
23
|
1 |
4 |
unless $capacity =~ /\A[0-9]+\z/ |
|
24
|
1 |
3 |
unless $capacity > 0 |
|
28
|
2 |
1 |
if (defined $on_evict) |
|
29
|
1 |
1 |
unless ref $on_evict eq "CODE" |
|
51
|
0 |
7 |
if @_ == 1 |
|
62
|
8 |
5 |
if ($size == $cap) { } |
|
64
|
7 |
1 |
if $cb |
|
70
|
2 |
6 |
if $head == $cap |
|
77
|
6 |
7 |
if $tail >= $cap |
|
92
|
2 |
5 |
if $size == 0 |
|
104
|
4 |
9 |
if $i == $cap |
|
112
|
1 |
7 |
if @_ < 2 |
|
115
|
1 |
6 |
unless defined $index |
|
116
|
2 |
4 |
unless $index =~ /\A[0-9]+\z/ |
|
120
|
1 |
3 |
if $index >= $size |
|
127
|
1 |
2 |
if $i >= $cap |
|
136
|
0 |
2 |
if $size == 0 |
|
145
|
2 |
3 |
if $i == $cap |
|
161
|
2 |
3 |
if $self->{'_size'} == 0 |
|
169
|
2 |
3 |
if $size == 0 |
|
175
|
1 |
2 |
if $i >= $cap |