| line |
true |
false |
branch |
|
72
|
0 |
36 |
if $deleted_of{$ident} |
|
84
|
0 |
47 |
if $val_type and $val_type ne 'ARRAY' |
|
89
|
1 |
46 |
$val_type eq 'ARRAY' ? : |
|
106
|
0 |
25 |
if (not exists $$hash_ref{$key}) { } |
|
111
|
2 |
23 |
ref $val eq 'ARRAY' ? : |
|
127
|
4 |
37 |
@vals > 1 ? : |
|
172
|
2 |
16 |
if $deleted_of{$ident} |
|
177
|
11 |
5 |
unless ($is_anon) |
|
178
|
4 |
7 |
defined $parcomm_of{$ident} ? : |
|
185
|
11 |
0 |
$sep_count_of{$ident}{':'} >= $sep_count_of{$ident}{'='} ? : |
|
|
5 |
11 |
defined $gds ? : |
|
191
|
0 |
16 |
if $inter_gap and not $is_anon |
|
204
|
2 |
11 |
unless (defined $hash_ref) |
|
210
|
26 |
25 |
unless $comp->update($hash_ref, $updated_ref) |
|
218
|
0 |
13 |
unless $is_first{ident $self} |
|
225
|
0 |
0 |
$first ? : |
|
|
0 |
0 |
if $first ? $post_gap : $inter_gap or $separate |
|
228
|
0 |
0 |
if $separate |
|
236
|
1 |
12 |
if @{$comp_ref;} and $$comp_ref[-1]->isa('Config::Std::Gap') |
|
248
|
0 |
0 |
if ($comp_ref and @{$comp_ref;} and $$comp_ref[-1]->isa('Config::Std::Comment')) { } |
|
260
|
58 |
12 |
if $sep |
|
264
|
17 |
53 |
if ($$seen{$key}) |
|
289
|
1 |
7 |
if ref $hash_ref eq 'REF' |
|
291
|
4 |
4 |
if @_ < 2 |
|
293
|
0 |
8 |
unless $filename |
|
298
|
8 |
0 |
exists $global_inter_gap{$caller} ? : |
|
329
|
1 |
12 |
unless (defined $$subhash{$key}) |
|
334
|
6 |
6 |
$first ? : |
|
|
8 |
4 |
if $first ? $post_gap : $inter_gap or $separate |
|
337
|
2 |
10 |
if $separate |
|
344
|
0 |
7 |
unless open my $fh, '>', $filename |
|
347
|
5 |
2 |
unless ref $filename |
|
357
|
5 |
2 |
unless ref $filename |
|
366
|
1 |
6 |
if ($var_type eq 'SCALAR' and not defined ${$var_ref;}) { } |
|
|
6 |
0 |
elsif ($var_type eq 'HASH') { } |
|
388
|
2 |
5 |
unless (keys %{$$hash_ref{''};}) |
|
398
|
0 |
7 |
unless open my $fh, '<', $filename |
|
400
|
6 |
1 |
unless ref $filename |
|
404
|
6 |
1 |
unless ref $filename |
|
417
|
42 |
71 |
if (/\G (?: [^\S\n]* (?:\n|\z)+)/cgmsx) { } |
|
|
2 |
69 |
elsif (/\G (\s* [#;] [^\n]* (?:\n|\z) )/cgmsx) { } |
|
|
11 |
58 |
elsif (/\G ([^\S\n]*) [[] ( [^]\n]* ) []] ( ([^\S\n]*) [#;] [^\n]* )? [^\S\n]* (?:\n|\z)/cgmsx) { } |
|
|
58 |
0 |
elsif (/\G [^\S\n]* ([^=:\n]+?) [^\S\n]* ([:=] [^\S\n]*) ([^\n]*) (?:\n|\z)/cgmsx) { } |
|
419
|
0 |
42 |
if $comment |
|
434
|
0 |
11 |
if ($parcomm) |
|
436
|
0 |
0 |
if (/\G ( (?: \n? [ ]{$pre,} [#] [^\n]* )+ )/cgmsx) |
|
450
|
11 |
0 |
/\G (?= [^\S\n]* (?:\n|\z) )/msx ? : |
|
470
|
54 |
4 |
unless $continued |