| line |
true |
false |
branch |
|
38
|
121 |
1 |
$self->{'allow_bang_only'} ? : |
|
47
|
189 |
698 |
unless ($line =~ /\S/) |
|
56
|
152 |
546 |
if ($line =~ /^(\s*)\[(\s*)(.+?)(\s*)\]
(?: (\s*)([;#])(.*))?
(\R?)\z/x) |
|
76
|
29 |
517 |
if ($self->{'enable_directive'} and $line =~ s/$directive_re//) |
|
88
|
3 |
26 |
if ($self->{'allow_directives'}) |
|
92
|
1 |
2 |
unless grep {$_ eq $directive;} @{$$self{'allow_directives'};} |
|
94
|
3 |
25 |
if ($self->{'disallow_directives'}) |
|
98
|
2 |
1 |
if grep {$_ eq $directive;} @{$$self{'disallow_directives'};} |
|
101
|
1 |
25 |
unless (defined $args) |
|
104
|
7 |
18 |
if ($directive eq 'include') { } |
|
|
10 |
8 |
elsif ($directive eq 'merge') { } |
|
|
5 |
3 |
elsif ($directive eq 'noop') { } |
|
106
|
1 |
6 |
if (not @$args) { } |
|
|
0 |
6 |
elsif (@$args > 1) { } |
|
114
|
1 |
5 |
if ($res->[0] != 200) |
|
123
|
1 |
2 |
if ($self->{'ignore_unknown_directive'}) { } |
|
133
|
65 |
452 |
if ($line =~ /^(\s*)([;#])(.*?)
(\R?)\z/x) |
|
146
|
447 |
5 |
if ($line =~ /^(\s*)([^=]+?)(\s*)=
(\s*)(.*?)
(\R?)\z/x) |
|
158
|
2 |
445 |
unless ($self->{'allow_duplicate_key'}) |
|
160
|
1 |
1 |
if ($$kmem{$self->{'_cur_section'}}{$2}) |
|
173
|
98 |
9 |
if (@$res) |
|
174
|
2 |
96 |
unless $res->[-1][-1] =~ /\R\z/ |