| line |
true |
false |
branch |
|
34
|
0 |
6 |
if ($c eq '\\' or $c eq '"') { } |
|
|
0 |
6 |
elsif (not $c =~ /[\x20-\x7F]/) { } |
|
52
|
0 |
2 |
if ($c eq '\\') { } |
|
63
|
3 |
5 |
$val =~ /\s|"|[^\x20-\x7f]/ ? : |
|
77
|
27 |
6 |
if (length $id) { } |
|
85
|
22 |
11 |
if ($comment_style eq 'shell') { } |
|
|
3 |
8 |
elsif ($comment_style eq 'c') { } |
|
|
3 |
5 |
elsif ($comment_style eq 'cpp') { } |
|
|
2 |
3 |
elsif ($comment_style eq 'html') { } |
|
|
3 |
0 |
elsif ($comment_style eq 'ini') { } |
|
126
|
1 |
27 |
$2 ? : |
|
140
|
10 |
2 |
if (ref $f{'attrs'}) { } |
|
158
|
2 |
10 |
if ($f{'is_multi'} or $pl =~ /\R/) { } |
|
159
|
1 |
1 |
unless $pl =~ /\R\z/ |
|
160
|
0 |
2 |
$te ? : |
|
|
0 |
2 |
$te ? : |
|
164
|
2 |
8 |
$te ? : |
|
173
|
0 |
35 |
unless $which =~ /\A(?:list|get|insert|delete|set_attrs)\z/ |
|
176
|
0 |
35 |
if (ref $args{'label'} eq 'CODE') { } |
|
185
|
0 |
35 |
unless defined $text |
|
187
|
29 |
6 |
if ($which =~ /\A(?:get|insert|set_attrs|delete)\z/) |
|
188
|
0 |
29 |
unless defined $id |
|
190
|
29 |
6 |
if (defined $id) |
|
191
|
1 |
28 |
unless $id =~ /$re_id/ |
|
196
|
1 |
11 |
unless /\A\w+\z/ |
|
198
|
2 |
9 |
unless (defined $attrs->{$_}) |
|
199
|
2 |
0 |
if ($which eq 'set_attrs') { } |
|
211
|
0 |
33 |
unless $comment_style =~ /\A(cpp|c|shell|html|ini)\z/ |
|
221
|
12 |
21 |
if ($which eq "insert") |
|
222
|
0 |
12 |
unless defined $payload |
|
225
|
6 |
27 |
if ($which eq 'list') { } |
|
|
3 |
24 |
elsif ($which eq 'get') { } |
|
|
3 |
21 |
elsif ($which eq 'set_attrs') { } |
|
|
9 |
12 |
elsif ($which eq 'delete') { } |
|
240
|
2 |
1 |
if ($text =~ /($one_line_pattern|$multi_line_pattern)/x) { } |
|
260
|
4 |
2 |
if (defined $v) { } |
|
269
|
2 |
1 |
if ($text =~ s/$one_line_pattern | $multi_line_pattern/&$sub(%+);/egx) { } |
|
281
|
4 |
4 |
$f{'enl'} ? : |
|
283
|
7 |
2 |
if ($text =~ s/(?\R?)
(?$one_line_pattern | $multi_line_pattern)/&$sub(%+);/egx) { } |
|
299
|
1 |
2 |
if $payload eq $f{'payload'} |
|
306
|
1 |
11 |
if ($good_pattern and $text =~ /$good_pattern/) |
|
310
|
3 |
8 |
if ($text =~ s/(?(?:$one_line_pattern | $multi_line_pattern))/&$sub(%+);/ex) |
|
312
|
2 |
1 |
if ($replaced) { } |
|
323
|
1 |
7 |
if ($replace_pattern and $text =~ /($replace_pattern)/) |
|
330
|
1 |
6 |
if ($top_style) { } |
|
|
5 |
1 |
elsif (length $text) { } |
|
334
|
2 |
3 |
unless $enl |
|
335
|
3 |
2 |
$enl ? : |
|
340
|
1 |
6 |
$top_style ? : |