blib/lib/Parse/FSM.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 25 | 33 | 75.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
244 | 42 | 142 | 68 | not $rule_name =~ /^_lst_/ and $elem =~ /^ \[ .* \] /x |
254 | 90 | 14 | 1 | exists $$tree{$elem} and ref $$tree{$elem} ne 'HASH' |
333 | 82 | 11 | 58 | not defined $self->start_rule and $rule_name =~ /^[a-z]/i |
702 | 1 | 0 | 46 | defined $self->start_rule and exists $self->_tree->{$self->start_rule} |
809 | 6 | 0 | 0 | substr($file, 0, 1) eq '-' and $line == 0 |
line | l | !l | condition |
---|---|---|---|
316 | 31 | 367 | $$tree{$elem} ||= {} |
418 | 72 | 382 | $quant || '' |
593 | 39 | 3 | our $name ||= 'Parser00000' |
680 | 0 | 46 | $self->prolog || '' |
0 | 46 | $self->epilog || '' | |
713 | 209 | 46 | $self->_state_table->[$i]{'__comment__'} || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
284 | 8 | 4 | 10 | $quant eq '*' or $quant eq '?' |
810 | 0 | 0 | 0 | @ARGV == 2 or @ARGV == 3 |