| line |
true |
false |
branch |
|
17
|
1 |
7 |
if ($msect eq $section) |
|
24
|
0 |
7 |
unless (exists $res->{$msect}) |
|
53
|
67 |
1 |
$self->{'allow_bang_only'} ? : |
|
65
|
181 |
518 |
unless ($line =~ /\S/) |
|
70
|
25 |
493 |
if ($self->{'enable_directive'} and $line =~ s/$directive_re//) |
|
72
|
3 |
22 |
if ($self->{'allow_directives'}) |
|
76
|
1 |
2 |
unless grep {$_ eq $directive;} @{$$self{'allow_directives'};} |
|
78
|
3 |
21 |
if ($self->{'disallow_directives'}) |
|
82
|
2 |
1 |
if grep {$_ eq $directive;} @{$$self{'disallow_directives'};} |
|
85
|
1 |
21 |
unless (defined $args) |
|
89
|
0 |
21 |
if ($cb) |
|
98
|
7 |
14 |
if ($directive eq 'include') { } |
|
|
6 |
8 |
elsif ($directive eq 'merge') { } |
|
|
5 |
3 |
elsif ($directive eq 'noop') { } |
|
100
|
1 |
6 |
if (not @$args) { } |
|
|
0 |
6 |
elsif (@$args > 1) { } |
|
108
|
1 |
5 |
if ($res->[0] != 200) |
|
115
|
5 |
1 |
@$args ? : |
|
118
|
1 |
2 |
if ($self->{'ignore_unknown_directive'}) { } |
|
129
|
64 |
429 |
if ($line =~ /^\s*[;#]/) |
|
131
|
0 |
64 |
if ($cb) |
|
142
|
72 |
357 |
if ($line =~ /^\s*\[\s*(.+?)\s*\](?: \s*[;#].*)?/) |
|
149
|
4 |
68 |
if ($self->{'_merge'} and $self->{'_num_seen_section_lines'} > 1) |
|
153
|
0 |
72 |
if ($cb) |
|
165
|
352 |
5 |
if ($line =~ /^\s*([^=]+?)\s*=\s*(.*)/) |
|
172
|
66 |
286 |
if ($val =~ /\A["!\\[\{~]/) { } |
|
173
|
0 |
66 |
if $cb |
|
175
|
8 |
58 |
if $err |
|
178
|
0 |
286 |
if $cb |
|
182
|
27 |
317 |
if (exists $res->{$cur_section}{$key}) { } |
|
183
|
1 |
26 |
if (not $self->{'allow_duplicate_key'}) { } |
|
|
15 |
11 |
elsif ($self->{'_arrayified'}{$cur_section}{$key}++) { } |
|
195
|
0 |
343 |
if ($cb) |
|
211
|
2 |
43 |
if ($self->{'_merge'} and $self->{'_num_seen_section_lines'} > 1) |