| line |
true |
false |
branch |
|
347
|
5 |
26 |
unless $def->{'isa'} =~ /^str/iu
|
|
348
|
23 |
3 |
if ref $cfg ne "HASH"
|
|
368
|
5 |
31 |
if (not exists $cfg->{$k}) { }
|
|
|
3 |
28 |
elsif (is_ref_value $def, $cfg->{$k}) { }
|
|
375
|
34 |
1 |
if check_value_type $def->{'isa'}, $v
|
|
384
|
14 |
12 |
if ($path =~ /$p/u)
|
|
386
|
0 |
14 |
ref $t eq 'ARRAY' ? :
|
|
395
|
12 |
46 |
if $i =~ /[*]$/u
|
|
396
|
24 |
22 |
if grep {$_ eq $i;} @RESERVED
|
|
406
|
1 |
39 |
unless defined $args{'structure'}
|
|
407
|
1 |
38 |
unless defined $args{'config'}
|
|
410
|
29 |
9 |
ref $args{'config'} ? :
|
|
411
|
29 |
9 |
ref $args{'structure'} ? :
|
|
414
|
0 |
38 |
exists $args{'on_typecheck_error'} ? :
|
|
426
|
0 |
12 |
defined $name ? :
|
|
428
|
0 |
12 |
unless (is_branch $node)
|
|
430
|
0 |
0 |
exists $config->{$name} ? :
|
|
431
|
0 |
0 |
if is_ref_value $structure->{$name}, $config->{$name}
|
|
436
|
0 |
12 |
defined $name ? :
|
|
444
|
3 |
53 |
if not $k =~ /$PERL_IDENTIFIER/u or grep {$_ eq $k;} @RESERVED
|
|
446
|
36 |
17 |
if (exists $structure->{$k}{'isa'}) { }
|
|
464
|
0 |
54 |
$structure->{$k}{'sensitive'} && !$reveal_sensitive && defined $v ? :
|