| line |
true |
false |
branch |
|
30
|
5 |
1 |
if (@_ > 1) |
|
32
|
0 |
5 |
unless ref $kv eq "ARRAY" and $kv->$#* & 1 |
|
41
|
1 |
2 |
if (@_ > 1) |
|
48
|
1 |
20 |
if (@_ > 1) |
|
55
|
2 |
0 |
if (@_ > 1) |
|
62
|
4 |
0 |
if (@_ > 1) |
|
75
|
1 |
15 |
if ($uni) { } |
|
76
|
0 |
1 |
if $fc |
|
80
|
0 |
1 |
if $trim |
|
81
|
0 |
1 |
if $trim |
|
82
|
0 |
1 |
$fc ? : |
|
|
1 |
0 |
if $key eq ($fc ? fc($k) : $k) |
|
87
|
5 |
10 |
if $fc |
|
90
|
32 |
27 |
if $trim |
|
91
|
32 |
27 |
if $trim |
|
92
|
27 |
32 |
$fc ? : |
|
|
25 |
34 |
if $key eq ($fc ? fc($k) : $k) |
|
108
|
0 |
10 |
if $uni |
|
109
|
3 |
7 |
if $trim |
|
110
|
3 |
7 |
if $trim |
|
112
|
3 |
7 |
$fc ? : |
|
|
8 |
2 |
unless $seen{$fc ? fc($k) : $k}++ |
|
132
|
1 |
11 |
if ($self->unicode_values) |
|
141
|
3 |
9 |
@$vals > 1 ? : |
|
147
|
0 |
2 |
if ref $key |
|
149
|
0 |
2 |
if $key =~ /[:\0-\x1F\x7F]/ or $key =~ /^\s+/ or $key =~ /\s+\z/ |
|
154
|
0 |
8 |
if (ref $val) |
|
155
|
0 |
0 |
unless builtin::blessed($val) and $val->isa('Crypt::SecretBuffer') || $val->isa('Crypt::SecretBuffer::Span') |
|
168
|
1 |
2 |
if (not defined $idx) { } |
|
170
|
0 |
1 |
$self->unicode_keys ? : |
|
175
|
2 |
1 |
ref $value eq 'ARRAY' ? : |
|
177
|
0 |
7 |
$self->unicode_values ? : |
|
|
7 |
0 |
unless ref $v |
|
182
|
1 |
2 |
unless defined $idx |
|
192
|
0 |
1 |
$self->unicode_keys ? : |
|
193
|
0 |
1 |
$self->unicode_values ? : |
|
|
1 |
0 |
unless ref $value |