| line |
true |
false |
branch |
|
15
|
0 |
3 |
unless open my $fh, "<", $file |
|
44
|
394 |
376 |
if ($char =~ /\s/) |
|
51
|
1 |
375 |
if ($char eq ";") |
|
59
|
100 |
275 |
if ($char eq "(") |
|
67
|
100 |
175 |
if ($char eq ")") |
|
75
|
32 |
143 |
if ($char eq "\"") |
|
83
|
0 |
667 |
if ($c eq "\\") |
|
92
|
32 |
635 |
if $c eq "\"" |
|
98
|
0 |
32 |
if $i >= $len |
|
111
|
38 |
1019 |
if $c =~ /\s/ or $c eq "(" or $c eq ")" |
|
132
|
0 |
3 |
if $pos < @$tokens |
|
143
|
0 |
275 |
unless my $token = $$tokens[$$pos_ref] |
|
147
|
100 |
175 |
if ($token->{'type'} eq "LPAREN") |
|
156
|
0 |
372 |
unless my $next = $$tokens[$$pos_ref] |
|
159
|
100 |
272 |
if $next->{'type'} eq "RPAREN" |
|
170
|
32 |
143 |
if ($token->{'type'} eq "STRING") |
|
176
|
143 |
0 |
if ($token->{'type'} eq "SYMBOL") |