Branch Coverage

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


line true false branch
55 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 '>') { }
56 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') { }
119 0 0 if ($v =~ / ^ \\[FLU] $ /x and $la1 and $la1 eq '\\E') { }
0 0 elsif ($v eq '\\Q') { }
0 0 elsif ($v =~ / \\[luEFLQU] /x) { }
152 0 0 unless (--$iter)
159 0 0 if ($string =~ s/ ^ ( [\$\@] ) \{ ( [^}]+ ) \} //x) { }
0 0 elsif ($string =~ s/ ^ ( [\$\@] ) ( \s | [^a-zA-Z] ) }//x) { }
0 0 elsif ($string =~ / ^ [\$\@] /x) { }
0 0 elsif ($string =~ s/ ^ ( [^\$\@]+ ) //x) { }
188 0 0 if ($var_name) { }
0 0 elsif ($string =~ s/ ^ ( [\$\@] [^\$\@]* ) //x) { }
196 0 0 if (@token) { }
215 0 0 if ($string =~ s/ ^ ( \$\@ ) //x)
219 0 0 if $1
220 0 0 if ($string =~ s/ ^ ( [^\$\@]+ ) //x) { }
232 0 0 if (@token and $token[-1]{'type'} eq 'uninterpolated')
235 0 0 if @result