| line | % | coverage | branch |
|---|
| 74 | 100 | T | F | if /^#/ |
| 75 | 100 | T | F | if /^\s*$/ |
| 99 | 100 | T | F | if (contains_pccmethod($pmc_fname)) |
| 102 | 100 | T | F | if ($pmc ne 'fixedintegerarray') |
| 123 | 100 | T | F | if (exists $o_deps{'include/parrot/oplib/core_ops.h'}) |
| 157 | 50 | T | F | unless open my $PMC, '<', "src/pmc/$pmc_file" |
| 163 | 100 | T | F | if (/^pmclass (\w+)(.*)/) |
| 168 | 50 | T | F | if $decl =~ /\bconst_too\b/ |
| 169 | 50 | T | F | if $decl =~ /\bextension\b/ |
| 172 | 100 | T | F | if $name eq 'default' |
| 176 | 100 | T | F | if ($decl =~ /extends (\w+)/) |
| 181 | 50 | T | F | if ($decl =~ /\babstract\b/) |
| 187 | 50 | T | F | if $const |
| 195 | 50 | T | F | unless defined $name |
| 219 | 100 | T | F | if defined $$self{'PMC_PARENTS'}{$pmc} |
| 222 | 50 | T | F | unless open my $PMC, '<', "src/pmc/$pmc.pmc" |
| 231 | 100 | T | F | if /extends\s+(\w+)/ |
| 250 | 100 | T | F | unless open my $IN, '<', 'src/pmc/pmc.num' |
| 253 | 100 | T | F | unless /^(\w+\.\w+)\s+(\d+)$/ |
| 267 | 100 | T | F | if (exists $$pmc_order{$pmc}) { } |
| 290 | 50 | T | F | unless open my $MAN, '<', $manifest |
| 294 | 100 | T | F | if ($f =~ m[^src/pmc/(.*\.pmc)]) |
| 299 | 50 | T | F | unless close $MAN |
| 307 | 100 | T | F | if (@missing_from_manifest) |
| 314 | 100 | T | F | unless open my $fh, '<', $file |
| 318 | 100 | T | F | unless /\bMETHOD\b/ |
| 328 | 50 | T | F | unless open my $fh, '<', $file |
| 333 | 100 | T | F | unless /^\s*# *include\s+"(.*)"\s+$/ |
| 335 | 100 | T | F | if ($include =~ /^parrot/) { } |
| 100 | T | F | elsif ($include =~ /^pmc_|\.str$/) { } |
| 100 | T | F | elsif ($include =~ m[^pmc/pmc_]) { } |
| 100 | T | F | elsif ($include =~ /^imcc/) { } |
| 50 | T | F | elsif ($include =~ m[^\.\./]) { } |
| 336 | 100 | T | F | if $include eq 'parrot/parrot.h' |
| 337 | 100 | T | F | if $include eq 'parrot/io.h' |
| 367 | 50 | T | F | if $kid eq '(abstract)' |
| 368 | 50 | T | F | unless exists $$parents{$kid} and $$parents{$kid}[0] eq '(abstract)' |
| 372 | 50 | T | F | if $kid eq $parent |