Branch Coverage

blib/lib/FLAT/Legacy/FA/PFA.pm
Criterion Covered Total %
branch 41 122 33.6


line true false branch
32 0 0 if (-e $file)
52 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 /^$/) { }
65 0 0 if ($1 =~ /START/i) { }
0 0 elsif ($1 =~ /FINAL/i) { }
0 0 elsif ($1 =~ /EPSILON/i) { }
0 0 elsif ($1 =~ /LAMBDA/i) { }
88 0 521 if (not defined $symbol) { }
113 162 1192 if (@trans)
115 108 54 unless (defined $tied{$name})
140 2797 16088 if ($self->is_member($tn, @testset))
147 538 12164 if ($allornone == @{$tied;})
164 1237 4967 if ($self->is_member($tn, @testset))
169 538 3598 if ($count == @{$tied;})
171 807 0 unless ($self->is_member($_, @ret))
213 538 14556 if ($symbol eq $self->get_lambda_symbol and $self->has_tied(@T)) { }
11726 2830 elsif ($symbol ne $self->get_lambda_symbol) { }
221 807 269 unless ($self->is_member($_, @new))
232 151 387 unless (defined $Dtran{$state})
240 7686 25136 if (defined $self->{'_TRANSITIONS'}{$node}{$symbol})
246 3686 4548 unless (defined $Dtran{$state})
299 3636 1406 unless ($self->is_node($node))
317 3189 0 unless ($self->is_member($next, @{$$self{'_TRANSITIONS'}{$node}{$symbol};}))
329 7686 0 if ($self->is_node($node) and $self->is_symbol($symbol))
330 7686 0 if (defined $self->{'_TRANSITIONS'}{$node}{$symbol})
358 0 0 if ($self->is_node($node))
359 0 0 if (defined $self->{'_TRANSITIONS'}{$node}{$self->get_epsilon_symbol})
388 2161 0 if ($self->is_node($node))
389 969 1192 if (defined $self->{'_TRANSITIONS'}{$node}{$self->get_lambda_symbol})
410 1742 0 unless ($self->is_final($node))
454 0 339 if ($PFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
491 0 0 if ($PFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
524 0 51 if ($PFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
566 0 54 if ($PFA1->get_epsilon_symbol ne $self->get_epsilon_symbol)
570 0 54 if ($PFA1->get_lambda_symbol ne $self->get_lambda_symbol)
650 102 390 if ($node ne $newfinal)
665 0 0 if (not $self->is_node($newname)) { }
666 0 0 if ($self->is_node($oldname)) { }
670 0 0 if ($_ eq $oldname)
677 0 0 if ($self->is_start($oldname))
680 0 0 if ($n eq $oldname)
692 0 0 if ($self->{'_TRANSITIONS'}{$node}{$symbol}[$j] eq $oldname)
698 0 0 if ($node eq $oldname)
702 0 0 if ($node eq $oldname)
710 0 0 if ($_ eq $oldname)
721 0 0 if ($node eq $oldname)
777 0 0 if (defined $suffix) { }
791 0 0 if (defined $prefix) { }
809 0 0 if ($self->is_symbol($oldsymbol) and $newsymbol ne $oldsymbol)
813 0 0 if ($_ eq $oldsymbol)
823 0 0 if ($symbol eq $oldsymbol)
830 0 0 if ($self->get_epsilon_symbol eq $oldsymbol)
850 0 0 if (defined $self->get_epsilon_symbol)
853 0 0 if (defined $self->get_lambda_symbol)
864 0 0 if ($symbol ne $self->get_epsilon_symbol and $symbol ne $self->get_lambda_symbol) { }
0 0 elsif ($symbol ne $self->get_lambda_symbol) { }
881 0 0 if (defined $self->get_epsilon_symbol)
884 0 0 if (defined $self->get_lambda_symbol)
891 0 0 if ($symbol ne $self->get_epsilon_symbol and $symbol ne $self->get_lambda_symbol) { }
0 0 elsif ($symbol ne $self->get_lambda_symbol) { }