Branch Coverage

blib/lib/Repl/Core/Parser.pm
Criterion Covered Total %
branch 46 62 74.1


line true false branch
28 791 812 if (exists $$self{'PUSHBACK'})
35 39 773 if ($buffer->eof)
47 112 661 if ('(' eq $char) { }
112 549 elsif (')' eq $char) { }
1 548 elsif (q['] eq $char) { }
22 526 elsif ('=' eq $char) { }
234 292 elsif ($char =~ /\s/) { }
4 288 elsif (';' eq $char) { }
5 283 elsif ('"' eq $char) { }
82 4 0 if "\n" eq $peek
93 3 20 if ($buffer->peekChar eq '\\') { }
97 1 2 if ($buffer->peekChar eq 'n') { }
1 1 elsif ($buffer->peekChar eq '\\') { }
1 0 elsif ($buffer->peekChar eq 't') { }
0 0 elsif ($buffer->peekChar eq '"') { }
141 0 5 if ($buffer->eof) { }
197 0 112 if ($token->isErroneous)
202 112 0 if ($token->isBeginList) { }
213 0 338 if (UNIVERSAL::can($expr, 'isa') and $expr->isa('Repl::Core::Token')) { }
215 0 0 if ($expr->isErroneous) { }
231 0 112 if ($token->isErroneous)
255 1 401 if ($token->isErroneous) { }
400 1 elsif ($token->isBeginList or $token->isString) { }
1 0 elsif ($token->isQuote) { }
262 112 288 if ($token->isBeginList) { }
275 0 400 if (UNIVERSAL::can($resultExpr, 'isa') and $resultExpr->isa('Repl::Core::Token'))
281 22 378 if ($peek->isPair) { }
285 0 22 if UNIVERSAL::can($lvalueExpr, 'isa') and $lvalueExpr->isa('Repl::Core::Token')
299 1 0 if (not $peekToken->isWhitespace) { }
302 0 1 if (UNIVERSAL::can($expr, 'isa') and $expr->isa('Repl::Core::Token')) { }
328 36 2 if (exists $$self{'PUSHBACK'})