| line |
true |
false |
branch |
|
40
|
121 |
1 |
$self->{'allow_bang_only'} ? : |
|
49
|
189 |
698 |
unless ($line =~ /\S/) |
|
58
|
152 |
546 |
if ($line =~ /^(\s*)\[(\s*)(.+?)(\s*)\]
(?: (\s*)([;#])(.*))?
(\R?)\z/x) |
|
78
|
29 |
517 |
if ($self->{'enable_directive'} and $line =~ s/$directive_re//) |
|
90
|
3 |
26 |
if ($self->{'allow_directives'}) |
|
94
|
1 |
2 |
unless grep {$_ eq $directive;} @{$$self{"allow_directives"};} |
|
96
|
3 |
25 |
if ($self->{'disallow_directives'}) |
|
100
|
2 |
1 |
if grep {$_ eq $directive;} @{$$self{"disallow_directives"};} |
|
103
|
1 |
25 |
unless (defined $args) |
|
106
|
7 |
18 |
if ($directive eq 'include') { } |
|
|
10 |
8 |
elsif ($directive eq 'merge') { } |
|
|
5 |
3 |
elsif ($directive eq 'noop') { } |
|
108
|
1 |
6 |
if (not @$args) { } |
|
|
0 |
6 |
elsif (@$args > 1) { } |
|
116
|
1 |
5 |
if ($res->[0] != 200) |
|
125
|
1 |
2 |
if ($self->{'ignore_unknown_directive'}) { } |
|
135
|
65 |
452 |
if ($line =~ /^(\s*)([;#])(.*?)
(\R?)\z/x) |
|
148
|
447 |
5 |
if ($line =~ /^(\s*)([^=]+?)(\s*)=
(\s*)(.*?)
(\R?)\z/x) |
|
161
|
0 |
0 |
if ($self->{'warn_perl'} and not $4 and substr($5, 0, 1) eq ">") |
|
165
|
2 |
445 |
unless ($self->{'allow_duplicate_key'}) |
|
167
|
1 |
1 |
if ($$kmem{$self->{'_cur_section'}}{$2}) |
|
180
|
98 |
9 |
if (@$res) |
|
181
|
2 |
96 |
unless $res->[-1][-1] =~ /\R\z/ |