Branch Coverage

blib/lib/FLAT/Legacy/FA/PRE.pm
Criterion Covered Total %
branch 82 124 66.1


line true false branch
73 519 194 if ($self->is_terminal($_))
75 152 367 unless ($self->is_member($_, @{$$self{'_SYMBOLS'};}))
111 77 0 unless (defined $self->{'_PARSE_TREE'})
126 1093 77 if ($tree->{'symbol'} ne $self->{'_PRE_END_SYMBOL'})
129 572 521 if (defined $tree->{'left'})
133 521 572 if (defined $tree->{'right'})
137 51 1042 if (defined $PFA_l and $tree->{'symbol'} eq '*')
141 521 572 if (defined $tree->{'pos'}) { }
444 128 elsif (defined $PFA_l and defined $PFA_r) { }
146 51 393 if ($tree->{'symbol'} eq '|') { }
54 339 elsif ($tree->{'symbol'} eq '&') { }
339 0 elsif ($tree->{'symbol'} eq '.') { }
183 0 713 if ($self->{'_TRACE'})
184 713 0 if ($self->lookahead eq $match) { }
202 713 77 if (@{$self->{'_CURRENT_STR'};})
211 0 96 if ($self->{'_TRACE'})
212 96 0 unless ($self->done)
215 0 96 if ($self->{'_TRACE'})
222 0 96 if ($self->{'_TRACE'})
223 96 0 unless ($self->done)
227 0 96 if ($self->{'_TRACE'})
234 0 150 if ($self->{'_TRACE'})
237 150 0 unless ($self->done)
238 54 96 if ($look eq '&')
241 0 54 unless (defined $tree)
245 54 0 if (defined $O) { }
253 0 150 if ($self->{'_TRACE'})
260 0 150 if ($self->{'_TRACE'})
261 150 0 unless ($self->done)
265 0 150 if ($self->{'_TRACE'})
272 0 201 if ($self->{'_TRACE'})
275 201 0 unless ($self->done)
276 51 150 if ($look eq '|')
279 0 51 unless (defined $tree)
283 51 0 if (defined $C) { }
291 0 201 if ($self->{'_TRACE'})
298 0 201 if ($self->{'_TRACE'})
299 201 0 unless ($self->done)
303 0 201 if ($self->{'_TRACE'})
310 0 739 if ($self->{'_TRACE'})
312 739 0 unless ($self->done)
313 538 201 if ($self->get_cat_state == 1)
316 538 0 if (defined $tree) { }
317 339 199 if (defined $S)
321 0 0 if (defined $S)
328 0 739 if ($self->{'_TRACE'})
335 0 739 if ($self->{'_TRACE'})
336 739 0 unless ($self->done)
340 0 739 if ($self->{'_TRACE'})
347 0 790 if ($self->{'_TRACE'})
349 790 0 unless ($self->done)
350 51 739 if ($look eq '*')
355 0 790 if ($self->{'_TRACE'})
362 0 739 if ($self->{'_TRACE'})
364 739 0 unless ($self->done)
365 19 720 if ($term eq '(') { }
369 2 17 unless (defined $tree)
375 519 43309 if ($term eq $terminal)
385 0 739 if ($self->{'_TRACE'})
424 1232 0 if (defined $test)
426 886 346 if (grep {$_ eq $test;} @_)
465 538 538 if ($self->get_cat_state == 0) { }