| line |
true |
false |
branch |
|
49
|
0 |
894 |
if defined $self->{$wrong}
|
|
52
|
0 |
298 |
if (defined $self->{'migrate_keys_from'})
|
|
71
|
297 |
1 |
unless defined $self->{'max_index'}
|
|
76
|
0 |
0 |
unless $k > $self->{'max_index'}
|
|
85
|
1121 |
568 |
if $self->{'migration_done'}
|
|
89
|
277 |
291 |
if $self->instance->initial_load
|
|
93
|
2 |
289 |
if ($self->{'migrate_values_from'}) { }
|
|
|
0 |
289 |
elsif ($self->{'migrate_keys_from'}) { }
|
|
95
|
0 |
2 |
if $logger->is_debug
|
|
108
|
0 |
0 |
unless $self->_defined($_)
|
|
128
|
1 |
1 |
if ($self->cargo_type eq "node")
|
|
132
|
1 |
1 |
if ($self->cargo_type eq "leaf")
|
|
140
|
0 |
4 |
if defined $v
|
|
155
|
769 |
846 |
scalar @$data ? :
|
|
184
|
2 |
219 |
unless $string =~ s/$regex//
|
|
187
|
219 |
0 |
if defined $tmp
|
|
188
|
219 |
0 |
if defined $tmp
|
|
191
|
73 |
146 |
unless length $string
|
|
194
|
0 |
146 |
unless $string =~ s/^,//
|
|
197
|
2 |
73 |
if (length $string)
|
|
212
|
74 |
26 |
if (ref $_[0] eq 'ARRAY') { }
|
|
221
|
3 |
97 |
if ($logger->is_debug)
|
|
226
|
100 |
0 |
unless $args{'comment'}
|
|
231
|
0 |
297 |
if @comments
|
|
256
|
0 |
4984 |
unless $key =~ /^\d+$/
|
|
284
|
2 |
0 |
if ($ok or $check eq 'no') { }
|
|
294
|
0 |
0 |
if ($check ne "skip")
|
|
318
|
1 |
1 |
ref $v_arg ? :
|
|
320
|
1 |
0 |
$anno ? :
|
|
|
1 |
1 |
ref $anno ? :
|
|
322
|
0 |
2 |
if %args
|
|
329
|
2 |
1 |
if @a
|
|
361
|
3 |
2 |
ref $val eq 'Regexp' ? :
|
|
367
|
5 |
9 |
if &$test($v)
|
|
386
|
3 |
3 |
if @insert
|
|
399
|
0 |
60 |
unless $ct eq "leaf"
|
|
416
|
3 |
3 |
if $has_changed
|
|
425
|
0 |
173 |
unless defined $o
|
|
426
|
70 |
103 |
if $o->index_value != $i
|
|
458
|
1 |
20 |
unless $idx =~ /^\d+$/
|
|
465
|
17 |
3 |
if ($self->{'cargo'}{'type'} eq "leaf")
|
|
477
|
299 |
2 |
unless defined $auto_nb
|
|
481
|
1 |
1 |
unless $auto_nb =~ /^\d+$/
|
|
489
|
4 |
0 |
unless defined $self->{'data'}[$_]
|
|
496
|
765 |
548 |
if @{$self->{'data'};}
|
|
508
|
99 |
3 |
@_ > 1 ? :
|
|
514
|
21 |
1 |
defined $raw_data ? :
|
|
|
39 |
22 |
$args{'split_reg'} ? :
|
|
|
41 |
61 |
ref $raw_data eq 'ARRAY' ? :
|
|
518
|
1 |
101 |
unless defined $data
|