Branch Coverage

blib/lib/Data/SExpression/Parser.pm
Criterion Covered Total %
branch 34 72 47.2


line true false branch
67 0 24 if exists $$self{'VERSION'} and $$self{'VERSION'} < $Parse::Yapp::Driver::COMPATIBLE
73 0 24 if ref $class
85 0 54 if ($$self{'DEBUG'}) { }
88 0 0 if $@
99 24 977 unless exists $$self{'USER'}
151 0 0 if $index < 0 and -$index <= @{$$self{'STACK'};}
161 0 0 if @_
169 0 0 if @_
198 0 180 unless exists $$checklist{$prm}
200 0 180 unless ref $value eq $$checklist{$prm}
206 0 162 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 294 356 if (exists $$actions{'ACTIONS'}) { }
286 247 47 unless (defined $$token)
292 47 1 exists $$actions{'DEFAULT'} ? :
246 48 exists $$actions{'ACTIONS'}{$$token} ? :
305 649 1 if (defined $act)
308 246 403 if ($act > 0)
314 0 246 if ($$errstatus)
329 246 0 if $$token ne ''
342 0 403 unless $act
348 0 403 if (unpack('A1', $lhs) eq '@')
349 0 0 unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/
356 393 10 $$dotpos ? :
359 100 0 @sempar ? :
303 100 $code ? :
365 53 350 if ($$check eq 'ACCEPT')
374 0 350 if ($$check eq 'ABORT')
387 350 0 unless ($$check eq 'ERROR')
415 1 0 unless ($$errstatus)
419 0 0 unless $$errstatus
433 0 0 if ($$errstatus == 3)
435 0 0 if ($$token eq '')
461 0 0 unless (@$stack)