| line |
true |
false |
branch |
|
163
|
0 |
511 |
unless defined $self->cargo->{'type'}
|
|
165
|
0 |
511 |
if ($self->cargo->{'type'} eq "node" and not $self->cargo->{'config_class_name'})
|
|
170
|
0 |
511 |
if ($self->{'cargo'}{'type'} eq "hash" or $self->{'cargo'}{'type'} eq "list")
|
|
176
|
6 |
502 |
if (defined $self->warp)
|
|
201
|
107 |
8597 |
if defined $args{$_}
|
|
204
|
7 |
537 |
if defined $args{'convert'}
|
|
214
|
25 |
519 |
if $self->{$_}
|
|
220
|
0 |
544 |
unless defined $self->{'index_type'}
|
|
227
|
0 |
544 |
unless $self->{'index_type'} eq "integer" or $self->{'index_type'} eq "string"
|
|
230
|
15 |
529 |
if (@current_idx)
|
|
236
|
28 |
1 |
if $ok
|
|
257
|
1 |
24 |
if (defined $self->{'duplicates'} and defined $self->{'cargo'} and $self->{'cargo'}{'type'} ne "leaf")
|
|
267
|
1 |
540 |
if (defined $self->{'duplicates'} and not $self->{'duplicates'} =~ /^$ok_dup$/u)
|
|
275
|
0 |
540 |
if scalar keys %args
|
|
286
|
861 |
4 |
unless defined $self->{'default_with_init'}
|
|
299
|
3634 |
37 |
unless defined $self->{'default_with_init'}
|
|
302
|
2 |
35 |
unless defined $def
|
|
304
|
27 |
8 |
if $self->_defined($idx)
|
|
309
|
4 |
4 |
if ($v_obj->get_type eq 'leaf') { }
|
|
361
|
1 |
10 |
if ($@)
|
|
363
|
1 |
0 |
$e ? :
|
|
376
|
3 |
864 |
if ($self->{'follow_keys_from'})
|
|
379
|
1 |
1 |
wantarray ? :
|
|
385
|
3 |
861 |
if defined $self->{'default_keys'}
|
|
388
|
4 |
860 |
if defined $self->{'default_with_init'}
|
|
390
|
0 |
864 |
wantarray ? :
|
|
403
|
0 |
0 |
if defined $args{$_}
|
|
408
|
0 |
0 |
if defined $self->{'index_type'}
|
|
410
|
0 |
0 |
if (defined $warp_info)
|
|
499
|
260 |
161 |
if ($self->needs_content_check) { }
|
|
514
|
0 |
260 |
if defined $self->{'max_nb'} and $nb > $self->{'max_nb'}
|
|
516
|
260 |
0 |
unless ($silent)
|
|
527
|
1 |
259 |
scalar @error ? :
|
|
530
|
1 |
160 |
if $local_logger->is_debug
|
|
533
|
1 |
160 |
scalar @$err ? :
|
|
544
|
0 |
997 |
$check eq 'fix' ? :
|
|
546
|
0 |
1032 |
unless defined $idx
|
|
555
|
6182 |
10 |
unless $self->{$key_check_name}
|
|
562
|
918 |
114 |
unless $self->_exists($idx)
|
|
564
|
1 |
1031 |
if ($idx eq '') { }
|
|
|
0 |
1031 |
elsif ($self->{'index_type'} eq 'integer' and $idx =~ /\D/u) { }
|
|
|
2 |
1029 |
elsif (defined $self->{'max_index'} and $idx > $self->{'max_index'}) { }
|
|
|
1 |
2040 |
elsif (defined $self->{'min_index'} and $idx < $self->{'min_index'}) { }
|
|
578
|
8 |
1024 |
if defined $self->{'max_nb'} and $new_nb > $self->{'max_nb'}
|
|
580
|
13 |
1019 |
if (scalar @error)
|
|
588
|
3 |
0 |
if (@warn and not $silent and $check ne "no")
|
|
594
|
13 |
1019 |
scalar @error ? :
|
|
602
|
0 |
1 |
if $followed->exists($idx)
|
|
619
|
1 |
1 |
unless $ok
|
|
629
|
1 |
1 |
unless $idx =~ /$match/u
|
|
641
|
1 |
1 |
if $ok
|
|
655
|
2 |
0 |
if $idx =~ /$re/u
|
|
663
|
1 |
0 |
unless $idx =~ /$re/u
|
|
671
|
0 |
17 |
if $dup eq "allow"
|
|
679
|
9 |
20 |
unless $v
|
|
680
|
12 |
8 |
unless defined $h{$v}
|
|
682
|
8 |
12 |
if ($h{$v} > 1)
|
|
689
|
12 |
5 |
unless @issues
|
|
691
|
1 |
4 |
if ($apply_fix) { }
|
|
|
1 |
3 |
elsif ($dup eq 'forbid') { }
|
|
|
2 |
1 |
elsif ($dup eq 'warn') { }
|
|
|
1 |
0 |
elsif ($dup eq 'suppress') { }
|
|
719
|
80 |
3595 |
if $logger->is_trace
|
|
722
|
65 |
3610 |
if defined $self->{'convert_sub'} and defined $idx
|
|
725
|
594 |
3081 |
unless $self->{'migration_done'}
|
|
730
|
918 |
2757 |
unless $self->_defined($idx) or $check eq "no"
|
|
734
|
3663 |
12 |
if ($ok or $check eq 'no') { }
|
|
738
|
915 |
2748 |
unless $self->_defined($idx)
|
|
755
|
0 |
3 |
if defined $args{'autoadd'}
|
|
763
|
0 |
3 |
if ($dcm)
|
|
766
|
0 |
0 |
if $i == -1
|
|
771
|
0 |
3 |
unless $self->exists($item) or $autoadd
|
|
776
|
0 |
3 |
if $get_obj || $obj->get_type ne 'leaf' and not defined $new_path
|
|
792
|
4 |
3 |
if ($ok and $self->{'cargo'}{'type'} eq 'leaf') { }
|
|
|
3 |
0 |
elsif ($ok) { }
|
|
837
|
772 |
0 |
if ($self->{'cargo'}{'type'} eq 'leaf') { }
|
|
860
|
10 |
404 |
$check eq 'no' ? :
|
|
862
|
412 |
2 |
if ($ok or $check eq 'no') { }
|
|
929
|
0 |
923 |
unless defined $element_default_class{$cargo_type}
|
|
933
|
36 |
887 |
if (defined $class)
|
|
937
|
0 |
36 |
unless $can_override_class{$cargo_type}
|
|
954
|
283 |
640 |
if ($cargo_type eq 'node') { }
|
|
990
|
52 |
1 |
if defined $ret
|
|
1009
|
0 |
0 |
if $ct ne "leaf"
|
|
1025
|
0 |
0 |
if (defined $idx) { }
|
|
|
0 |
0 |
elsif (@{$self->{'content_warning_list'};}) { }
|
|
1031
|
0 |
0 |
$list ? :
|
|
1044
|
0 |
0 |
if $self->{$_}
|
|
1047
|
0 |
0 |
unless @list
|
|
1048
|
0 |
0 |
wantarray ? :
|