| 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/(?<bnl>\R?)
(?<fragment>$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/(?<fragment>(?:$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 ? :
|