| blib/lib/Acme/Turing.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 0 | 19 | unless defined $hentry |
| 51 | 0 | 1 | if $startpos < 0 or $startpos > $#Tape |
| 72 | 216 | 136 | unless (defined $$self{'spec'}{$st_key}) |
| 74 | 0 | 216 | unless defined $$self{'spec'}{$st_key} |
| 84 | 89 | 604 | if (/^P/) { } |
| 10 | 594 | elsif (/^E/) { } | |
| 594 | 0 | elsif (/^[LR]/) { } | |
| 86 | 89 | 0 | if $data ne '' |
| 92 | 229 | 365 | substr($_, 0, 1) eq 'L' ? : |
| 93 | 0 | 594 | if ($tp < 0) { } |
| 1 | 593 | elsif ($tp > @Tape - 1) { } | |
| 122 | 356 | 1971 | $i == $tp ? : |
| 144 | 2 | 350 | if ($step_num == $$self{'steps'}) |