Branch Coverage

blib/lib/Perl/ToPerl6/Transformer/BasicTypes/Strings/Interpolation.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
57 0 0 if ($v eq '\\') { }
0 0 elsif ($v eq '$') { }
0 0 elsif ($v eq '@') { }
0 0 elsif ($v eq '%') { }
0 0 elsif ($v eq '{') { }
0 0 elsif ($v eq '}') { }
0 0 elsif ($v eq '(') { }
0 0 elsif ($v eq ')') { }
0 0 elsif ($v eq '<') { }
0 0 elsif ($v eq '>') { }
58 0 0 if ($la1 eq 'c') { }
0 0 elsif ($la1 eq 'l') { }
0 0 elsif ($la1 eq 'u') { }
0 0 elsif ($la1 eq 'E') { }
0 0 elsif ($la1 eq 'F') { }
0 0 elsif ($la1 eq 'L') { }
0 0 elsif ($la1 eq 'Q') { }
0 0 elsif ($la1 eq 'U') { }
121 0 0 if ($v =~ / ^ \\[FLU] $ /x and $la1 and $la1 eq '\\E') { }
139 0 0 unless (--$iter)
147 0 0 if ($string =~ s/ ^ ( [\$\@] \{ [^}]+ \} ) //x) { }
0 0 elsif ($string =~ s/ ^ ( \\ c . ) //x or $string =~ s/ ^ ( [\$\@] (?: \\ | \s ) ) //x) { }
0 0 elsif ($string =~ s/ ^ ( [^\$\@]+ ) //x) { }
0 0 elsif ($string =~ / ^ [\$\@] /x) { }
156 0 0 if (@tokens) { }
171 0 0 if ($string =~ s/ ^ ( \$\@ ) //x)
175 0 0 if $1
176 0 0 if ($string =~ s/ ^ ( [^\$\@]+ ) //x) { }
191 0 0 if ($var_name) { }
200 0 0 if (@tokens) { }
222 0 0 if (index($old_string, '@{[') >= 0)
334 0 0 if ($v =~ / ^ ( \$ | \@ ) /x) { }
335 0 0 if ($v =~ s/ ^ \$ \@ /\\\$\@/x) { }
0 0 elsif ($v =~ s/ ^ ( \$ | \@ ) \{ ([^\}]+) \} /{$1$2}/sx) { }
411 0 0 if ($@)