| line |
true |
false |
branch |
|
75
|
0 |
36 |
if $deleted_of{$ident} |
|
87
|
0 |
47 |
if $val_type and $val_type ne 'ARRAY' |
|
92
|
1 |
46 |
$val_type eq 'ARRAY' ? : |
|
109
|
0 |
25 |
if (not exists $hash_ref->{$key}) { } |
|
114
|
2 |
23 |
ref $val eq 'ARRAY' ? : |
|
130
|
4 |
37 |
@vals > 1 ? : |
|
175
|
2 |
16 |
if $deleted_of{$ident} |
|
180
|
11 |
5 |
unless ($is_anon) |
|
183
|
4 |
7 |
defined $parcomm_of{$ident} ? : |
|
190
|
11 |
0 |
$sep_count_of{$ident}{':'} >= $sep_count_of{$ident}{'='} ? : |
|
|
5 |
11 |
defined $gds ? : |
|
194
|
0 |
16 |
if $inter_gap and not $is_anon |
|
207
|
2 |
11 |
unless (defined $hash_ref) |
|
213
|
26 |
25 |
unless $comp->update($hash_ref, $updated_ref) |
|
221
|
0 |
13 |
unless $is_first{&ident($self)} |
|
228
|
0 |
0 |
$first ? : |
|
|
0 |
0 |
if $first ? $post_gap : $inter_gap or $separate |
|
231
|
0 |
0 |
if $separate |
|
239
|
1 |
12 |
if @{$comp_ref;} and $comp_ref->[-1]->isa('Config::Std::Gap') |
|
251
|
0 |
0 |
if ($comp_ref and @{$comp_ref;} and $comp_ref->[-1]->isa('Config::Std::Comment')) { } |
|
263
|
58 |
12 |
if $sep |
|
267
|
17 |
53 |
if ($seen->{$key}) |
|
292
|
1 |
7 |
if ref $hash_ref eq 'REF' |
|
294
|
4 |
4 |
if @_ < 2 |
|
296
|
0 |
8 |
unless $filename |
|
302
|
8 |
0 |
exists $global_inter_gap{$caller} ? : |
|
332
|
1 |
12 |
unless (defined $subhash->{$key}) |
|
337
|
6 |
6 |
$first ? : |
|
|
8 |
4 |
if $first ? $post_gap : $inter_gap or $separate |
|
340
|
2 |
10 |
if $separate |
|
347
|
0 |
7 |
unless open my $fh, '>', $filename |
|
350
|
5 |
2 |
unless ref $filename |
|
360
|
5 |
2 |
unless ref $filename |
|
369
|
1 |
6 |
if ($var_type eq 'SCALAR' and not defined ${$var_ref;}) { } |
|
|
6 |
0 |
elsif ($var_type eq 'HASH') { } |
|
391
|
2 |
5 |
unless (keys %{$$hash_ref{''};}) |
|
401
|
0 |
7 |
unless open my $fh, '<', $filename |
|
403
|
6 |
1 |
unless ref $filename |
|
407
|
6 |
1 |
unless ref $filename |
|
420
|
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) { } |
|
422
|
0 |
42 |
if $comment |
|
437
|
0 |
11 |
if ($parcomm) |
|
439
|
0 |
0 |
if (/\G ( (?: \n? [ ]{$pre,} [#] [^\n]* )+ )/cgmsx) |
|
453
|
11 |
0 |
/\G (?= [^\S\n]* (?:\n|\z) )/msx ? : |
|
473
|
54 |
4 |
unless $continued |