| line |
true |
false |
branch |
|
33
|
0 |
6 |
if ($c eq '\\' or $c eq '"') { } |
|
|
0 |
6 |
elsif (not $c =~ /[\x20-\x7F]/) { } |
|
51
|
0 |
2 |
if ($c eq '\\') { } |
|
62
|
3 |
5 |
$val =~ /\s|"|[^\x20-\x7f]/ ? : |
|
76
|
27 |
6 |
if (length $id) { } |
|
84
|
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') { } |
|
125
|
1 |
27 |
$2 ? : |
|
139
|
10 |
2 |
if (ref $f{'attrs'}) { } |
|
157
|
2 |
10 |
if ($f{'is_multi'} or $pl =~ /\R/) { } |
|
158
|
1 |
1 |
unless $pl =~ /\R\z/ |
|
159
|
0 |
2 |
$te ? : |
|
|
0 |
2 |
$te ? : |
|
163
|
2 |
8 |
$te ? : |
|
172
|
0 |
35 |
unless $which =~ /\A(?:list|get|insert|delete|set_attrs)\z/ |
|
175
|
0 |
35 |
if (ref $args{'label'} eq 'CODE') { } |
|
184
|
0 |
35 |
unless defined $text |
|
186
|
29 |
6 |
if ($which =~ /\A(?:get|insert|set_attrs|delete)\z/) |
|
187
|
0 |
29 |
unless defined $id |
|
189
|
29 |
6 |
if (defined $id) |
|
190
|
1 |
28 |
unless $id =~ /$re_id/ |
|
195
|
1 |
11 |
unless /\A\w+\z/ |
|
197
|
2 |
9 |
unless (defined $attrs->{$_}) |
|
198
|
2 |
0 |
if ($which eq 'set_attrs') { } |
|
210
|
0 |
33 |
unless $comment_style =~ /\A(cpp|c|shell|html|ini)\z/ |
|
220
|
12 |
21 |
if ($which eq 'insert') |
|
221
|
0 |
12 |
unless defined $payload |
|
224
|
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') { } |
|
239
|
2 |
1 |
if ($text =~ /($one_line_pattern|$multi_line_pattern)/x) { } |
|
259
|
4 |
2 |
if (defined $v) { } |
|
268
|
2 |
1 |
if ($text =~ s/$one_line_pattern | $multi_line_pattern/&$sub(%+);/egx) { } |
|
280
|
4 |
4 |
$f{'enl'} ? : |
|
282
|
7 |
2 |
if ($text =~ s/(?\R?)
(?$one_line_pattern | $multi_line_pattern)/&$sub(%+);/egx) { } |
|
298
|
1 |
2 |
if $payload eq $f{'payload'} |
|
305
|
1 |
11 |
if ($good_pattern and $text =~ /$good_pattern/) |
|
309
|
3 |
8 |
if ($text =~ s/(?(?:$one_line_pattern | $multi_line_pattern))/&$sub(%+);/ex) |
|
311
|
2 |
1 |
if ($replaced) { } |
|
322
|
1 |
7 |
if ($replace_pattern and $text =~ /($replace_pattern)/) |
|
329
|
1 |
6 |
if ($top_style) { } |
|
|
5 |
1 |
elsif (length $text) { } |
|
333
|
2 |
3 |
unless $enl |
|
334
|
3 |
2 |
$enl ? : |
|
339
|
1 |
6 |
$top_style ? : |