line |
true |
false |
branch |
20
|
6 |
11 |
if (my $this_policies_arg = $args->{'prohibit_interpolation_of_literals'}) |
37
|
23 |
332 |
if ($token_type == 172) { } |
|
40 |
292 |
elsif ($token_type == 146) { } |
38
|
2 |
21 |
if ($allow_if_string_contains_single_quote) |
39
|
2 |
0 |
if ($token_data =~ /'/) |
45
|
16 |
5 |
if ($token_data =~ /(\\*)(?:[\$\@]|\\\w)/) |
46
|
8 |
8 |
if (length($1) % 2 == 0) |
63
|
10 |
30 |
if (&any(sub {
$_ eq $token_data;
}
, @allow_double_quote_literals)) |
69
|
2 |
28 |
if ($allow_if_string_contains_single_quote) |
70
|
2 |
0 |
if ($token_data =~ /'/) |
76
|
16 |
12 |
if ($token_data =~ /(\\*)(?:[\$\@]\S+|\\\w)/) |
77
|
8 |
8 |
if (length($1) % 2 == 0) |