Branch Coverage

blib/lib/FLAT/Legacy/FA/NFA.pm
Criterion Covered Total %
branch 41 84 48.8


line true false branch
28 0 1177 if (not defined $symbol) { }
51 0 0 if (-e $file)
71 0 0 if (/^\s*([\w\d]*)\s*:\s*$/) { }
0 0 elsif (/^\s*([\w\d]*)\s*([\w\d,]*)\s*$/ and not /^$/) { }
0 0 elsif (/^\s*([\w\d]*)\s*::\s*([\w\d,]*)\s*$/ and not /^$/) { }
84 0 0 if ($1 =~ /START/i) { }
0 0 elsif ($1 =~ /FINAL/i) { }
0 0 elsif ($1 =~ /EPSILON/i) { }
126 0 1022 if ($NFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
166 0 0 if ($NFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
203 0 112 if ($NFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
277 168 2316 if ($state ne $newfinal)
315 1 0 if (not $self->is_state($newname)) { }
316 1 0 if ($self->is_state($oldname)) { }
320 1 10 if ($_ eq $oldname)
327 0 1 if ($self->is_start($oldname))
336 1 42 if ($self->{'_TRANSITIONS'}{$state}{$symbol}[$j] eq $oldname)
342 1 36 if ($state eq $oldname)
346 1 36 if ($state eq $oldname)
354 0 1 if ($_ eq $oldname)
376 0 0 if ($self->is_symbol($oldsymbol) and $newsymbol ne $oldsymbol)
380 0 0 if ($_ eq $oldsymbol)
390 0 0 if ($symbol eq $oldsymbol)
397 0 0 if ($self->get_epsilon_symbol eq $oldsymbol)
413 20729 0 unless ($self->is_member($next, @{$$self{'_TRANSITIONS'}{$state}{$symbol};}))
425 26950 0 if ($self->is_state($state) and $self->is_symbol($symbol))
426 10725 16225 if (defined $self->{'_TRANSITIONS'}{$state}{$symbol})
449 19713 0 if ($self->is_state($state))
450 12903 6810 if (defined $self->{'_TRANSITIONS'}{$state}{$self->get_epsilon_symbol})
480 4 533 if ($self->is_final($s) and not $DFA->is_final($ns))
493 4056 2034 if ($symbol ne $self->get_epsilon_symbol)
501 2541 1515 unless ($ns =~ /^$/)
504 1914 627 unless ($DFA->is_state($ns))
511 333 12633 if ($self->is_final($s) and not $DFA->is_final($ns))
535 13788 16225 if (defined $_)
537 10667 3121 unless ($self->is_member($_, @T))
560 19068 0 if (defined $_)
561 8926 10142 unless ($self->is_member($_, @closure))
589 0 0 if (defined $self->get_epsilon_symbol)
595 0 0 if ($symbol ne $self->get_epsilon_symbol) { }
610 0 0 if (defined $self->get_epsilon_symbol)
617 0 0 if ($symbol ne $self->get_epsilon_symbol) { }