| line |
true |
false |
branch |
|
256
|
45 |
337 |
if ($$exprref =~ /\G([A-Za-z_][0-9A-Za-z_]*)(?=[\t\n\f\r ]*=>)/cg) { } |
|
|
148 |
189 |
elsif ($$exprref =~ /\G\"/cg) { } |
|
|
15 |
174 |
elsif ($$exprref =~ /\G\'/cg) { } |
|
|
64 |
110 |
elsif ($$exprref =~ /\G(0|[1-9][0-9]*)/cg) { } |
|
|
102 |
8 |
elsif ($$exprref =~ /\G([\[\{])/cg) { } |
|
261
|
3 |
258 |
if ($$exprref =~ /\G\\([0-7]{1,3})/cg) { } |
|
|
21 |
237 |
elsif ($$exprref =~ /\G\\x([0-9a-fA-F]{1,2})/cg) { } |
|
|
9 |
228 |
elsif ($$exprref =~ /\G\\x\{([0-9a-fA-F]+)\}/cg) { } |
|
|
11 |
217 |
elsif ($$exprref =~ /\G\\([a-zA-Z])/cg) { } |
|
|
16 |
201 |
elsif ($$exprref =~ /\G\\([\ -\~\x{a1}-\x{7fffffff}])/cg) { } |
|
|
195 |
6 |
elsif ($$exprref =~ /\G($pond_dqstringchar_rx+)/cog) { } |
|
267
|
0 |
9 |
unless ($hexval =~ /\A0*(?:0
|[1-7][0-9a-fA-F]{0,7}
|[8-9a-fA-F][0-9a-fA-F]{0,6}
)\z/x) |
|
277
|
1 |
10 |
unless defined $c |
|
290
|
2 |
20 |
if ($$exprref =~ /\G\\([\'\\])/cg) { } |
|
|
14 |
6 |
elsif ($$exprref =~ /\G(\\|$pond_sqstringchar_rx+)/cog) { } |
|
301
|
57 |
45 |
$1 eq '[' ? : |
|
302
|
57 |
45 |
$1 eq '[' ? : |
|
306
|
64 |
164 |
if $$exprref =~ /\G$close/cg |
|
309
|
34 |
126 |
if $$exprref =~ /\G$close/cg |
|
310
|
0 |
126 |
unless $$exprref =~ /\G(?:,|=>)/cg |
|
313
|
53 |
45 |
if $type eq 'ARRAY' |
|
314
|
0 |
45 |
if scalar @data & 1 |
|
319
|
0 |
58 |
unless rand $data[$i] |
|
328
|
11 |
218 |
unless rand $text |
|
332
|
2 |
195 |
unless $text =~ /\G\z/cg |
|
388
|
40 |
112 |
if $str =~ /\A(?:0|[1-9][0-9]{0,8})\z/ |
|
389
|
0 |
112 |
unless $str =~ /\A[\x{0}-\x{7fffffff}]*\z/ |
|
392
|
56 |
56 |
unless $$options{'unicode'} |
|
398
|
38 |
12 |
$_[0] =~ /\A[A-Za-z_][0-9A-Za-z_]*\z/ ? : |
|
405
|
0 |
235 |
unless defined $options |
|
406
|
3 |
232 |
if (rand $datum and $$options{'undef_is_empty'}) { } |
|
|
140 |
92 |
elsif (rand $datum) { } |
|
|
43 |
49 |
elsif (rand $datum) { } |
|
|
38 |
11 |
elsif (rand $datum) { } |
|
411
|
20 |
23 |
if @$datum == 0 |
|
412
|
10 |
13 |
if (defined $$options{'indent'}) { } |
|
429
|
4 |
34 |
if keys %$datum == 0 |
|
430
|
16 |
18 |
if (defined $$options{'indent'}) { } |