Branch Coverage

blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitInterpolationOfLiterals.pm
Criterion Covered Total %
branch 22 24 91.6


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)