Branch Coverage

blib/lib/Language/MinCaml/Lexer.pm

Criterion	Covered	Total	%
branch	18	50	36.0

line	true	false	branch
31	1	1	if ($buffer =~ /^\d+(\.\d*)?([eE][+\-]?\d+)?/) { }
	0	1	elsif ($buffer =~ /^\(/) { }
	0	1	elsif ($buffer =~ /^\)/) { }
	0	1	elsif ($buffer =~ /^\+\.?/) { }
	0	1	elsif ($buffer =~ /^-\.?/) { }
	0	1	elsif ($buffer =~ /^\*\./) { }
	0	1	elsif ($buffer =~ m[^/\.]) { }
	0	1	elsif ($buffer =~ /^=/) { }
	0	1	elsif ($buffer =~ /^<[>=\-]?/) { }
	0	1	elsif ($buffer =~ /^>=?/) { }
	0	1	elsif ($buffer =~ /^,/) { }
	0	1	elsif ($buffer =~ /^_/) { }
	0	1	elsif ($buffer =~ /^\./) { }
	0	1	elsif ($buffer =~ /^;/) { }
	1	0	elsif ($buffer =~ /^[a-z][0-9a-zA-Z_]*/) { }
	0	0	elsif ($buffer =~ /^Array\.create/) { }
	0	0	elsif ($buffer eq '') { }
33	1	0	$value =~ /[.eE]/ ? :
45	0	0	$value eq '+.' ? :
49	0	0	$value eq '-.' ? :
65	0	0	if ($value eq '<>') { }
	0	0	elsif ($value eq '<=') { }
	0	0	elsif ($value eq '<-') { }
80	0	0	$value eq '>=' ? :
100	0	1	if (exists $keywords{$value}) { }