| line | % | coverage | branch |
|---|
| 39 | 100 | T | F | if (defined $parrot_version) |
| 40 | 100 | T | F | wantarray ? : |
| 44 | 100 | T | F | if (-e 'VERSION') { } |
| 45 | 50 | T | F | unless open my $VERSION, '<', 'VERSION' |
| 47 | 50 | T | F | unless close $VERSION |
| 51 | 100 | T | F | unless $path |
| 52 | 100 | T | F | unless open my $VERSION, '<', "$path/VERSION" |
| 54 | 50 | T | F | unless close $VERSION |
| 60 | 100 | T | F | if (scalar @parrot_version < 3) |
| 64 | 100 | T | F | if (scalar @parrot_version > 4) |
| 69 | 100 | T | F | unless $component =~ /^\d+$/ |
| 74 | 100 | T | F | wantarray ? : |
| 87 | 100 | T | F | unless open my $SLURP, '<', $file_name |
| 91 | 50 | T | F | unless close $SLURP |
| 108 | 100 | T | F | unless $style eq 'perl' or $style eq 'c' |
| 127 | 100 | T | F | if ($style eq 'perl') |
| 148 | 50 | T | F | unless open my $IN, '<', $compat_file |
| 150 | 100 | T | F | if (/^(\d+)\.0*(\d+)/) |
| 155 | 50 | T | F | unless close $IN |
| 156 | 100 | T | F | unless (defined $bc_major) |