Branch Coverage

blib/lib/PerlPoint/Parser.pm
Criterion Covered Total %
branch 44 72 61.1


line true false branch
67 0 35 if exists $$self{'VERSION'} and $$self{'VERSION'} < $Parse::Yapp::Driver::COMPATIBLE
73 0 35 if ref $class
85 0 37 if ($$self{'DEBUG'}) { }
88 0 0 if $@
99 0 0 unless exists $$self{'USER'}
151 0 0 if $index < 0 and -$index <= @{$$self{'STACK'};}
161 4 4 if @_
169 4 24 if @_
198 0 216 unless exists $$checklist{$prm}
200 0 216 unless ref $value eq $$checklist{$prm}
206 0 111 unless exists $$outhash{$_}
219 0 0 if exists ${'Parse::Yapp::Driver::';}{'_DBParse'}
224 0 0 unless open DRV, "<$fname"
227 0 0 if (/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/)
283 7108 20832 if (exists $$actions{'ACTIONS'}) { }
286 5882 1226 unless (defined $$token)
292 1226 4 exists $$actions{'DEFAULT'} ? :
5878 1230 exists $$actions{'ACTIONS'}{$$token} ? :
305 27936 4 if (defined $act)
308 5878 22058 if ($act > 0)
314 0 5878 if ($$errstatus)
329 5845 33 if $$token ne ''
342 33 22025 unless $act
348 1884 20174 if (unpack('A1', $lhs) eq '@')
349 0 1884 unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/
356 21387 671 $$dotpos ? :
359 10287 467 @sempar ? :
11304 10754 $code ? :
365 33 22025 if ($$check eq 'ACCEPT')
374 0 22025 if ($$check eq 'ABORT')
387 22025 0 unless ($$check eq 'ERROR')
415 4 0 unless ($$errstatus)
419 0 4 unless $$errstatus
433 0 4 if ($$errstatus == 3)
435 0 0 if ($$token eq '')
461 4 0 unless (@$stack)