Branch Coverage

YappParse.yp
Criterion Covered Total %
branch 67 102 65.6


line true false branch
28 0 10 if ref $class
35 66 457 unless (exists $$syms{$_[1][0]})
46 290 1448 unless (exists $$syms{$_[1][0]})
74 0 63 if (exists $token->{$symbol})
92 0 74 if (defined $term->{$symbol}[0])
114 0 0 if (exists $nterm->{$symbol})
144 9 1 unless $start
147 0 10 unless ref $nterm->{$start}
174 32 726 if defined $_[1] and $_[1][-1][0] eq 'CODE'
197 0 117 unless (defined $$term{$_[2][0]})
225 0 0 $token ? :
233 10 4038 if pos $$input >= length $$input
238 10 4028 if ($lexlevel > 1)
259 351 3677 $lexlevel == 0 ? :
3583 445 if ($lexlevel == 0 ? $$input =~ m[\G((?: [\t\ ]+ # Any white space char but \n | \#[^\n]* # Perl like comments | /\*.*?\*/ # C like comments )+)]cgsx : $$input =~ m[\G((?: \s+ # any white space char | \#[^\n]* # Perl like comments | /\*.*?\*/ # C like comments )+)]cgsx)
263 0 3583 if pos $$input >= length $$input
271 1995 2033 if $$input =~ /\G([A-Za-z_][A-Za-z0-9_]*)/cg
275 523 1510 if ($$input =~ /\G('(?:[^'\\]|\\\\|\\'|\\)+?')/cg)
277 0 523 if ($1 eq q['error'])
286 20 1490 if ($$input =~ /\G(%%)/cg)
292 38 1452 if ($$input =~ /\G\{/cg)
299 0 54 if substr($$input, pos($$input) - 1, 1) eq '\\'
301 8 46 $1 eq '{' ? :
38 16 unless $level += $1 eq '{' ? 1 : -1
305 0 38 if $level
311 203 1249 if ($lexlevel == 0) { }
312 37 166 if $$input =~ /\G%(left|right|nonassoc)/cg
314 1 165 if $$input =~ /\G%(start)/cg
316 0 165 if $$input =~ /\G%(expect)/cg
319 10 155 if ($$input =~ /\G%\{/cg)
322 0 10 unless $$input =~ /\G(.*?)%}/cgs
329 27 128 if $$input =~ /\G%(token)/cg
331 0 128 if $$input =~ /\G%(type)/cg
333 0 128 if $$input =~ /\G%(union)/cg
335 0 128 if $$input =~ /\G([0-9]+)/cg
340 117 1132 if $$input =~ /\G%(prec)/cg
345 0 1260 unless $$input =~ /\G(.)/gs
348 128 1132 if $1 eq "\n"
358 0 0 $lineno < 0 ? :
364 0 0 if $level > 1
369 0 0 if $level > 0
372 0 0 if $nberr == 20
381 0 257 if (ref $nterm->{$lhs})
388 0 257 if (ref $term->{$lhs})
389 0 0 exists $token->{$lhs} ? :
396 257 0 unless (ref $nterm->{$lhs})
408 41 834 unless (@$rhs)
417 3 2006 if ($what eq 'CODE')
429 0 257 if $epsrules > 1
436 0 10 unless @_ > 0
468 0 10 if $nberr