Branch Coverage

blib/lib/Parse/Yapp/Driver.pm
Criterion Covered Total %
branch 108 156 69.2


line true false branch
53 0 19 if exists $self->{'VERSION'} and $self->{'VERSION'} < $Parse::Yapp::Driver::COMPATIBLE
58 0 19 if ref $class
70 1 21 if ($self->{'DEBUG'}) { }
73 0 1 if $@
85 1 488 unless exists $self->{'USER'}
137 6 0 if $index < 0 and -$index <= @{$self->{'STACK'};}
146 0 0 if @_
154 0 0 if @_
183 0 101 unless exists $checklist->{$prm}
185 0 101 unless ref $value eq $checklist->{$prm}
191 0 66 unless exists $outhash->{$_}
205 0 1 if exists do { 'Parse::Yapp::Driver::' }->{'_DBParse'}
209 0 1 unless open DRV, "<$fname"
212 243 229 if (/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/)
220 4 51 ord $_ < 32 || ord $_ > 126 ? :
59 0 if $debug & 2
59 0 if $debug & 8
30 0 if $debug & 1
30 11 unless (defined $$token)
10 3 exists $actions->{'DEFAULT'} ? :
28 13 exists $actions->{'ACTIONS'}{$$token} ? :
18 0 if $debug & 1
41 18 if (exists $actions->{'ACTIONS'}) { }
28 0 if $debug & 4
0 1 if ($debug & 16 and $dbgerror and $$errstatus == 0)
1 27 if ($$errstatus)
27 1 if $$token ne ''
28 28 if ($act > 0)
27 1 if $debug & 4 and $act
1 27 unless $act
0 0 unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/
0 28 if (unpack('A1', $lhs) eq '@')
27 1 $$dotpos ? :
7 1 @sempar ? :
20 8 $code ? :
1 0 if $debug & 4
1 27 if ($$check eq 'ACCEPT')
0 0 if $debug & 4
0 27 if ($$check eq 'ABORT')
27 0 if $debug & 4
27 0 if $debug & 4
1 26 if ($debug & 16 and $dbgerror and $$errstatus == 0)
27 0 unless ($$check eq 'ERROR')
0 0 if $debug & 4
56 3 if (defined $act)
0 1 unless $$errstatus
1 0 if ($debug & 16)
1 2 unless ($$errstatus)
0 0 if $debug & 16
0 2 if ($$token eq '')
2 0 if $debug & 16
2 1 if ($$errstatus == 3)
3 0 if $debug & 16
0 0 if $debug & 16
0 3 unless (@$stack)
3 0 if $debug & 16
268 6037 10302 if (exists $actions->{'ACTIONS'}) { }
271 4183 1854 unless (defined $$token)
281 1841 13 exists $actions->{'DEFAULT'} ? :
4183 1854 exists $actions->{'ACTIONS'}{$$token} ? :
290 16324 15 if (defined $act)
293 4171 12153 if ($act > 0)
299 3 4168 if ($$errstatus)
314 4150 21 if $$token ne ''
327 21 12132 unless $act
333 3 12150 if (unpack('A1', $lhs) eq '@')
334 0 3 unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/
341 11931 222 $$dotpos ? :
344 3114 108 @sempar ? :
8931 3222 $code ? :
350 21 12132 if ($$check eq 'ACCEPT')
359 0 12132 if ($$check eq 'ABORT')
372 12132 0 unless ($$check eq 'ERROR')
400 3 12 unless ($$errstatus)
404 0 3 unless $$errstatus
418 12 3 if ($$errstatus == 3)
420 0 12 if ($$token eq '')
446 0 15 unless (@$stack)