Branch Coverage

blib/lib/FLAT/Legacy/FA/RE.pm
Criterion Covered Total %
branch 70 170 41.1


line true false branch
74 1176 328 if ($self->is_terminal($_))
76 84 1092 unless ($self->is_member($_, @{$$self{'_SYMBOLS'};}))
123 43 0 unless (defined $self->{'_PARSE_TREE'})
136 2486 43 if ($tree->{'symbol'} ne $self->{'_RE_END_SYMBOL'})
139 1309 1177 if (defined $tree->{'left'})
143 1177 1309 if (defined $tree->{'right'})
147 132 2354 if (defined $NFA_l and $tree->{'symbol'} eq '*')
151 1177 1309 if (defined $tree->{'pos'}) { }
1134 175 elsif (defined $NFA_l and defined $NFA_r) { }
156 112 1022 if ($tree->{'symbol'} eq '|') { }
1022 0 elsif ($tree->{'symbol'} eq '.') { }
170 0 0 unless (defined $self->{'_PARSE_TREE'})
194 0 0 if ($s == $#{$$self{'_SYMBOL_POS'};} + 1 and not $DFA->is_final($ns))
214 0 0 unless ($ns =~ /^$/)
217 0 0 unless ($DFA->is_state($ns))
224 0 0 if ($s == $#{$$self{'_SYMBOL_POS'};} + 1 and not $DFA->is_final($ns))
240 0 0 if (@{$$self{'_SYMBOL_POS'};}[$state - 1] eq $symbol)
258 0 0 if (defined $_)
260 0 0 unless ($self->is_member($_, @T))
274 0 0 if (defined $tree->{'left'})
275 0 0 if (defined $tree->{'right'})
277 0 0 if (defined $tree->{'pos'}) { }
278 0 0 if ($tree->{'symbol'} eq $self->get_epsilon_symbol) { }
287 0 0 if ($tree->{'symbol'} eq '|') { }
0 0 elsif ($tree->{'symbol'} eq '.') { }
0 0 elsif ($tree->{'symbol'} eq '*') { }
292 0 0 if ($tree->{'left'}{'fp_nullable'} == 1 or $tree->{'right'}{'fp_nullable'} == 1)
298 0 0 if ($tree->{'left'}{'fp_nullable'} == 1) { }
305 0 0 if ($tree->{'left'}{'fp_nullable'} == 1 and $tree->{'right'}{'fp_nullable'} == 1)
320 0 0 if (defined $tree->{'left'})
321 0 0 if (defined $tree->{'right'})
323 0 0 if (defined $tree->{'pos'}) { }
324 0 0 if ($tree->{'symbol'} eq $self->get_epsilon_symbol) { }
333 0 0 if ($tree->{'symbol'} eq '|') { }
0 0 elsif ($tree->{'symbol'} eq '.') { }
0 0 elsif ($tree->{'symbol'} eq '*') { }
338 0 0 if ($tree->{'left'}{'lp_nullable'} == 1 or $tree->{'right'}{'lp_nullable'} == 1)
344 0 0 if ($tree->{'right'}{'lp_nullable'} == 1) { }
351 0 0 if ($tree->{'left'}{'lp_nullable'} == 1 and $tree->{'right'}{'lp_nullable'} == 1)
365 0 0 if (defined $tree->{'left'})
368 0 0 if (defined $tree->{'right'})
372 0 0 if (not defined $tree->{'pos'} and $tree->{'symbol'} ne '|')
373 0 0 if ($tree->{'symbol'} eq '.') { }
0 0 elsif ($tree->{'symbol'} eq '*') { }
415 0 1504 if ($self->{'_TRACE'})
416 1504 0 if ($self->lookahead eq $match) { }
434 1504 43 if (@{$self->{'_CURRENT_STR'};})
443 0 85 if ($self->{'_TRACE'})
444 85 0 unless ($self->done)
447 0 85 if ($self->{'_TRACE'})
454 0 85 if ($self->{'_TRACE'})
455 85 0 unless ($self->done)
459 0 85 if ($self->{'_TRACE'})
466 0 197 if ($self->{'_TRACE'})
469 197 0 unless ($self->done)
470 112 85 if ($look eq '|')
473 0 112 unless (defined $tree)
477 111 1 if (defined $C) { }
485 0 197 if ($self->{'_TRACE'})
492 0 197 if ($self->{'_TRACE'})
493 197 0 unless ($self->done)
497 0 197 if ($self->{'_TRACE'})
504 0 1415 if ($self->{'_TRACE'})
506 1415 0 unless ($self->done)
507 1218 197 if ($self->get_cat_state == 1)
510 1218 0 if (defined $tree) { }
511 1022 196 if (defined $S)
515 0 0 if (defined $S)
522 0 1415 if ($self->{'_TRACE'})
529 0 1415 if ($self->{'_TRACE'})
530 1415 0 unless ($self->done)
534 0 1415 if ($self->{'_TRACE'})
541 0 1547 if ($self->{'_TRACE'})
543 1547 0 unless ($self->done)
544 132 1415 if ($look eq '*')
549 0 1547 if ($self->{'_TRACE'})
556 0 1415 if ($self->{'_TRACE'})
558 1415 0 unless ($self->done)
559 42 1373 if ($term eq '(') { }
563 0 42 unless (defined $tree)
569 1176 77701 if ($term eq $terminal)
579 0 1415 if ($self->{'_TRACE'})
618 2680 0 if (defined $test)
620 2268 412 if (grep {$_ eq $test;} @_)
651 1218 1218 if ($self->get_cat_state == 0) { }