Branch Coverage

blib/lib/CljPerl/Reader.pm
Criterion Covered Total %
branch 0 124 0.0


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) { }