| line |
true |
false |
branch |
|
63
|
0 |
231 |
unless defined $self->index_type
|
|
84
|
42 |
10 |
if ($idx_type eq "integer")
|
|
85
|
0 |
42 |
if defined $self->{'max_index'} and $k > $self->{'max_index'}
|
|
86
|
0 |
42 |
if defined $self->{'min_index'} and $k < $self->{'min_index'}
|
|
88
|
0 |
52 |
if defined $self->{'max_nb'} and $idx++ > $self->{'max_nb'}
|
|
95
|
52 |
0 |
unless &$wrong($k)
|
|
104
|
742 |
422 |
if $self->{'migration_done'}
|
|
108
|
194 |
228 |
if $self->instance->initial_load
|
|
111
|
1 |
227 |
if ($self->{'migrate_keys_from'}) { }
|
|
|
2 |
225 |
elsif ($self->{'migrate_values_from'}) { }
|
|
113
|
0 |
1 |
if ($logger->is_debug)
|
|
118
|
4 |
0 |
unless $self->_defined($idx)
|
|
123
|
0 |
2 |
if $logger->is_debug
|
|
126
|
0 |
5 |
if $self->exists($item)
|
|
142
|
0 |
1 |
$self->ordered ? :
|
|
148
|
1 |
0 |
if ($self->cargo_type eq "node")
|
|
156
|
0 |
5 |
if defined $v
|
|
172
|
133 |
1068 |
$self->{'ordered'} ? :
|
|
185
|
419 |
6 |
unless exists $self->{'data'}{$key}
|
|
186
|
14 |
411 |
if $self->write_empty_value
|
|
197
|
1752 |
789 |
defined $self->{'data'}{$key} ? :
|
|
205
|
256 |
7 |
unless defined $auto_p
|
|
208
|
12 |
20 |
unless exists $self->{'data'}{$_}
|
|
|
7 |
0 |
ref $auto_p ? :
|
|
217
|
608 |
317 |
if @temp
|
|
247
|
2 |
0 |
if ($self->ordered) { }
|
|
261
|
4 |
0 |
if ($self->ordered) { }
|
|
279
|
0 |
0 |
if $self->{'warp'} and @{$self->{'warp_info'}{'computed_master'};}
|
|
281
|
0 |
0 |
if defined $self->{'default'}
|
|
294
|
0 |
0 |
if $self->{'warp'} and @{$self->{'warp_info'}{'computed_master'};}
|
|
298
|
0 |
0 |
if defined $res
|
|
314
|
0 |
4 |
unless exists $self->{'data'}{$k}
|
|
319
|
2 |
4 |
if ($copy[$idx] eq $key1)
|
|
322
|
2 |
4 |
if ($copy[$idx] eq $key2)
|
|
337
|
0 |
6 |
unless exists $self->{'data'}{$from}
|
|
342
|
6 |
0 |
if ($ok or $check eq 'no') { }
|
|
|
0 |
0 |
elsif ($check eq 'yes') { }
|
|
361
|
2 |
20 |
if $list->[$idx] eq $to
|
|
362
|
6 |
16 |
if $list->[$idx] eq $from
|
|
365
|
2 |
4 |
if (defined $to_idx) { }
|
|
391
|
0 |
3 |
unless ($self->ordered)
|
|
400
|
0 |
5 |
unless exists $self->{'data'}{$k}
|
|
409
|
2 |
1 |
if (defined $ref_key) { }
|
|
411
|
2 |
4 |
if ($list->[$idx] eq $ref_key)
|
|
432
|
0 |
1 |
unless ($self->ordered)
|
|
440
|
0 |
1 |
unless exists $self->{'data'}{$key}
|
|
446
|
1 |
0 |
if ($list->[$idx] eq $key)
|
|
462
|
0 |
1 |
unless ($self->ordered)
|
|
470
|
0 |
1 |
unless exists $self->{'data'}{$key}
|
|
476
|
1 |
1 |
if ($list->[$idx] eq $key)
|
|
498
|
3 |
27 |
if ($self->{'ordered'} and defined $data->{$order_key} || defined $data->{'__order'}) { }
|
|
|
2 |
26 |
elsif ($self->{'ordered'} and (not $data->{'__skip_order'} and keys %$data > 1)) { }
|
|
499
|
3 |
0 |
unless delete $data->{$order_key}
|
|
513
|
3 |
27 |
if (@ordered_keys)
|
|
517
|
2 |
11 |
unless delete $data_keys{$k}
|
|
519
|
1 |
2 |
if (%data_keys or @left_keys)
|
|
521
|
0 |
1 |
if %data_keys
|
|
522
|
1 |
0 |
if @left_keys
|
|
530
|
2 |
27 |
@ordered_keys ? :
|
|
538
|
58 |
1 |
if defined $data->{$elt}
|
|
544
|
27 |
5 |
@_ > 1 ? :
|
|
548
|
30 |
2 |
if (ref $data eq 'HASH') { }
|
|
|
2 |
0 |
elsif (ref $data eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (defined $data) { }
|
|
554
|
0 |
2 |
unless $self->ordered
|
|
565
|
0 |
0 |
$self->{'ordered'} ? :
|