Branch Coverage

blib/lib/OpenGL/QEng/Parser.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
26 0 0 unless defined $terminator
35 0 0 if substr($rec, 0, 1) eq '#'
36 0 0 if $rec =~ /^\s*$/
40 0 0 if (my $r = shift @newrecs)
41 0 0 if substr($r, 0, 1) eq '#'
48 0 0 if (@records) { }
61 0 0 if (ref $i)
63 0 0 if defined $tok
71 0 0 if defined $i
75 0 0 if @newtoks
78 0 0 unless defined $i
97 0 0 if (ref $_[0][1] eq 'CODE')
118 0 0 unless defined $v
131 0 0 defined $input ? :
137 0 0 defined $aref && ref $aref eq 'ARRAY' ? :
147 0 0 unless ref $wanted
150 0 0 unless defined $input
153 0 0 unless defined $$wanted[$i]
154 0 0 unless $$wanted[$i] eq $$next[$i]
157 0 0 if defined $ENV{'DEBUG_TOKEN'}
165 0 0 if @p == 0
166 0 0 if @p == 1
173 0 0 if (($v, $input) = &$_($input)) { }
186 0 0 if @p == 0
187 0 0 if @p == 1
192 0 0 if (($v, $newinput) = &$_($input))
203 0 0 unless @_ == 2
208 0 0 if (($v0, $ni0) = &$p0($input))
209 0 0 if (($v1, $ni1) = &$p1($ni0))
222 0 0 defined $r ? :
235 0 0 unless defined $separator
239 0 0 unless defined $_[0]
241 0 0 if (ref $_[0] eq 'ARRAY') { }
246 0 0 if defined $_[1]
256 0 0 if (my($value, $newinput) = &$parser($input)) { }