| line |
true |
false |
branch |
|
19
|
1 |
7 |
if ($msect eq $section) |
|
26
|
0 |
7 |
unless (exists $res->{$msect}) |
|
55
|
67 |
1 |
$self->{'allow_bang_only'} ? : |
|
67
|
181 |
518 |
unless ($line =~ /\S/) |
|
72
|
25 |
493 |
if ($self->{'enable_directive'} and $line =~ s/$directive_re//) |
|
74
|
3 |
22 |
if ($self->{'allow_directives'}) |
|
78
|
1 |
2 |
unless grep {$_ eq $directive;} @{$$self{"allow_directives"};} |
|
80
|
3 |
21 |
if ($self->{'disallow_directives'}) |
|
84
|
2 |
1 |
if grep {$_ eq $directive;} @{$$self{"disallow_directives"};} |
|
87
|
1 |
21 |
unless (defined $args) |
|
91
|
0 |
21 |
if ($cb) |
|
100
|
7 |
14 |
if ($directive eq 'include') { } |
|
|
6 |
8 |
elsif ($directive eq 'merge') { } |
|
|
5 |
3 |
elsif ($directive eq 'noop') { } |
|
102
|
1 |
6 |
if (not @$args) { } |
|
|
0 |
6 |
elsif (@$args > 1) { } |
|
110
|
1 |
5 |
if ($res->[0] != 200) |
|
117
|
5 |
1 |
@$args ? : |
|
120
|
1 |
2 |
if ($self->{'ignore_unknown_directive'}) { } |
|
131
|
64 |
429 |
if ($line =~ /^\s*[;#]/) |
|
133
|
0 |
64 |
if ($cb) |
|
144
|
72 |
357 |
if ($line =~ /^\s*\[\s*(.+?)\s*\](?: \s*[;#].*)?/) |
|
151
|
4 |
68 |
if ($self->{'_merge'} and $self->{'_num_seen_section_lines'} > 1) |
|
155
|
0 |
72 |
if ($cb) |
|
167
|
352 |
5 |
if ($line =~ /^\s*([^=]+?)\s*=(\s*)(.*)/) |
|
172
|
0 |
0 |
if ($self->{'warn_perl'} and not $space and $val =~ /\A>/) |
|
179
|
66 |
286 |
if ($val =~ /\A["!\\[\{~]/) { } |
|
180
|
0 |
66 |
if $cb |
|
182
|
8 |
58 |
if $err |
|
185
|
0 |
286 |
if $cb |
|
189
|
27 |
317 |
if (exists $res->{$cur_section}{$key}) { } |
|
190
|
1 |
26 |
if (not $self->{'allow_duplicate_key'}) { } |
|
|
15 |
11 |
elsif ($self->{'_arrayified'}{$cur_section}{$key}++) { } |
|
202
|
0 |
343 |
if ($cb) |
|
218
|
2 |
43 |
if ($self->{'_merge'} and $self->{'_num_seen_section_lines'} > 1) |