| line |
true |
false |
branch |
|
31
|
0 |
53 |
if (@_ > 1) { } |
|
34
|
0 |
1 |
if (@_ > 1) { } |
|
37
|
0 |
44 |
if (@_ > 1) { } |
|
40
|
2 |
9 |
if (@_ > 1) { } |
|
43
|
0 |
44 |
if (@_ > 1) { } |
|
46
|
1 |
51 |
if (@_ > 1) { } |
|
51
|
3 |
19 |
if (@_ > 1) { } |
|
55
|
0 |
4 |
unless ref $rule_spec eq "ARRAY" |
|
61
|
8 |
0 |
if (not ref $rule or ref $rule eq 'Regexp') { } |
|
|
0 |
0 |
elsif ($rule ne 'HASH') { } |
|
63
|
1 |
7 |
if (ref $v eq 'ARRAY') { } |
|
|
7 |
0 |
elsif (ref $v eq 'HASH') { } |
|
|
0 |
0 |
elsif (defined $v) { } |
|
78
|
1 |
7 |
if ref $rule->{'rules'} eq "ARRAY" |
|
86
|
23 |
6 |
if (defined $_->{'key'}) { } |
|
|
5 |
1 |
elsif (defined $_->{'section'} and defined $section) { } |
|
88
|
7 |
16 |
ref $_->{'key'} eq 'Regexp' ? : |
|
|
7 |
16 |
if ref $_->{'key'} eq "Regexp" ? $key =~ /$_->{'key'}/ : $key eq $_->{'key'} |
|
97
|
0 |
5 |
if (ref $_->{'section'} eq 'Regexp') { } |
|
|
2 |
3 |
elsif ($section eq $_->{'section'}) { } |
|
|
1 |
2 |
elsif (defined $sep and $_->{'section'} eq substr($section, 0, length $_->{'section'})) { } |
|
98
|
0 |
0 |
if ($section =~ /$_->{'section'}/) |
|
100
|
0 |
0 |
if (defined $sep) { } |
|
104
|
0 |
0 |
unless ref $sep eq "Regexp" |
|
106
|
0 |
0 |
if (substr($section, 0, $-[0]) =~ /$_->{'section'}/) |
|
124
|
1 |
0 |
unless length $remainder |
|
127
|
2 |
3 |
if defined $key_rule |
|
140
|
0 |
40 |
unless ($span->parse("\n")) |
|
144
|
12 |
28 |
if ($line->parse('[')) { } |
|
|
26 |
2 |
elsif (not $line->starts_with($comment_delim)) { } |
|
146
|
0 |
12 |
if (not $line->parse(']')) { } |
|
158
|
0 |
26 |
if ($self->inline_comments and my $comment_start = $key->scan($comment_delim)) |
|
162
|
25 |
1 |
if ($line->parse($self->key_value_delim)) { } |
|
|
0 |
1 |
elsif ($self->bare_keys) { } |
|
165
|
2 |
23 |
if ($self->inline_comments) { } |
|
178
|
4 |
36 |
if ($line->parse($comment_delim)) { } |
|
|
0 |
36 |
elsif ($line->len) { } |
|
184
|
40 |
4 |
keys %result ? : |
|
190
|
3 |
1 |
$buf_or_span->can('subspan') ? : |
|
193
|
2 |
2 |
if defined $sep and ref $sep ne "Regexp" |
|
194
|
2 |
2 |
defined $sep ? : |
|
197
|
0 |
29 |
if defined $tokens->{'error'} |
|
198
|
10 |
19 |
if (defined $tokens->{'section'}) |
|
200
|
8 |
2 |
if (defined $sep) { } |
|
204
|
0 |
13 |
if defined $node->{$_} and ref $node->{$_} ne "HASH" |
|
211
|
19 |
10 |
if (defined $tokens->{'key'}) |
|
212
|
3 |
16 |
unless (defined $node) |
|
213
|
1 |
2 |
if (defined $sep) { } |
|
220
|
0 |
19 |
if (not $tokens->{'value'}) { } |
|
225
|
2 |
17 |
if defined $rule->{'encoding'} |
|
226
|
7 |
12 |
if ($rule->{'secret'}) { } |