line |
true |
false |
branch |
32
|
0 |
0 |
if (defined $fh) { } |
42
|
0 |
0 |
if (defined $fn) { } |
52
|
0 |
0 |
if (defined $line) { } |
62
|
0 |
0 |
if (defined $col) { } |
77
|
0 |
0 |
unless defined $fh |
79
|
0 |
0 |
unless (eof $fh) |
90
|
0 |
0 |
if (defined $c) |
91
|
0 |
0 |
if ($c eq "\n") { } |
115
|
0 |
0 |
if (defined $c) { } |
116
|
0 |
0 |
if ($c eq ';') { } |
|
0 |
0 |
elsif ($c =~ /\s/) { } |
134
|
0 |
0 |
unless defined $mode |
136
|
0 |
0 |
if ($mode eq 'string') { } |
137
|
0 |
0 |
unless open $fh, '<', \$file_or_str |
139
|
0 |
0 |
unless open $fh, '<', $file_or_str |
149
|
0 |
0 |
if defined $r |
152
|
0 |
0 |
if $mode ne 'string' |
170
|
0 |
0 |
unless defined $indent |
177
|
0 |
0 |
if (defined $c) |
178
|
0 |
0 |
if ($c eq '(') { } |
|
0 |
0 |
elsif ($c eq '"') { } |
|
0 |
0 |
elsif ($c =~ /\d/) { } |
|
0 |
0 |
elsif ($c eq '[') { } |
|
0 |
0 |
elsif ($c eq '{') { } |
|
0 |
0 |
elsif ($c eq '#') { } |
|
0 |
0 |
elsif ($c eq '^') { } |
|
0 |
0 |
elsif ($c eq ':') { } |
|
0 |
0 |
elsif ($c eq q[']) { } |
|
0 |
0 |
elsif ($c eq '`') { } |
|
0 |
0 |
elsif ($c eq '~') { } |
|
0 |
0 |
elsif ($c eq ';') { } |
|
0 |
0 |
elsif ($c eq ')' || $c eq ']' || $c eq '}' and $$self{'nest'} == 0) { } |
193
|
0 |
0 |
if $self->peekc ne '{' |
237
|
0 |
0 |
if (defined $c) |
238
|
0 |
0 |
if ($c eq ':') { } |
|
0 |
0 |
elsif ($c eq '!') { } |
|
0 |
0 |
elsif ($c eq '[') { } |
258
|
0 |
0 |
if (defined $c and $c eq "\n") |
277
|
0 |
0 |
if (defined $c) |
278
|
0 |
0 |
if ($c eq '\\') { } |
|
0 |
0 |
elsif ($c ne '"') { } |
281
|
0 |
0 |
unless defined $nc |
284
|
0 |
0 |
if ($nc eq 'a') { } |
|
0 |
0 |
elsif ($nc eq 'b') { } |
|
0 |
0 |
elsif ($nc eq 'e') { } |
|
0 |
0 |
elsif ($nc eq 'f') { } |
|
0 |
0 |
elsif ($nc eq 'n') { } |
|
0 |
0 |
elsif ($nc eq 'r') { } |
|
0 |
0 |
elsif ($nc eq 't') { } |
309
|
0 |
0 |
if (defined $c and $c eq '"') { } |
327
|
0 |
0 |
if (defined $c and $c =~ /\S/ and $c ne ';' and $c ne '(' and $c ne ')' and $c ne '[' and $c ne ']' and $c ne '{' and $c ne '}') { } |
333
|
0 |
0 |
if ($c =~ m[[\+\-\d\.xXabcdefABCDEF/\_]]) { } |
362
|
0 |
0 |
if (defined $c) |
363
|
0 |
0 |
if ($c =~ /\S/ and $c ne ';' and $c ne '(' and $c ne ')' and $c ne '[' and $c ne ']' and $c ne '{' and $c ne '}') { } |
368
|
0 |
0 |
if $c =~ m([^0-9a-zA-Z_!&\?\*/\.\+\|=%\$<>#\@\:\-\\]) |
378
|
0 |
0 |
if ($$sym{'value'} eq '') { } |
390
|
0 |
0 |
unless defined $type |
391
|
0 |
0 |
unless defined $begin |
392
|
0 |
0 |
unless defined $end |
395
|
0 |
0 |
if (defined $c and $c eq $begin) { } |
409
|
0 |
0 |
if defined $e |
412
|
0 |
0 |
if (defined $c and $c eq $end) { } |