| line | % | coverage | branch |
|---|
| 57 | 100 | T | F | if (defined $args) { } |
| 58 | 100 | T | F | unless reftype $args eq 'HASH' |
| 64 | 100 | T | F | unless defined $$args{'macro_match'} |
| 104 | 100 | T | F | if $ofile =~ /^\Qsrc$PConfig{'slash'}ops\E/ or $ofile =~ m[^src/ops] |
| 110 | 50 | T | F | unless ($is_yacc) |
| 113 | 100 | T | F | if -f $sfile |
| 124 | 100 | T | F | if ($$self{'macro_match'}) { } |
| 135 | 100 | T | F | unless $hfile eq 'none' |
| 137 | 100 | T | F | if $$components{'is_static'} |
| 139 | 100 | T | F | if ($$self{'macro_match'}) |
| 140 | 100 | T | F | if (grep {$_ eq $$self{'macro_match'};} @{$$components{'macros'};}) |
| 234 | 50 | T | F | unless open my $fhin, '<', $cfile_name |
| 251 | 50 | T | F | unless open my $fhout, '>', $cfile_name |
| 291 | 100 | T | F | if ($macro eq 'PARROT_EXPORT') { } |
| 100 | T | F | elsif ($macro eq 'PARROT_INLINE') { } |
| 304 | 50 | T | F | unless $args =~ s/([^(]+)\s*\((.+)\);?/$2/ |
| 331 | 50 | T | F | unless ($self->valid_macro($macro)) |
| 334 | 100 | T | F | if ($macro eq 'PARROT_IGNORABLE_RESULT') |
| 371 | 100 | T | F | if ($$args{'return_type'} =~ /\*/) |
| 372 | 100 | T | F | if (not $$args{'macros'}{'PARROT_CAN_RETURN_NULL'} || $$args{'macros'}{'PARROT_CANNOT_RETURN_NULL'}) { } |
| 100 | T | F | elsif ($$args{'macros'}{'PARROT_CAN_RETURN_NULL'} and $$args{'macros'}{'PARROT_CANNOT_RETURN_NULL'}) { } |
| 373 | 100 | T | F | if (not $$args{'name'} =~ /^yy/) |
| 421 | 100 | T | F | if (length $function_decl <= $line_len) { } |
| 489 | 100 | T | F | if ($$self{'macro_match'}) { } |
| 499 | 50 | T | F | $nfuncs == 1 ? : |
| 541 | 50 | T | F | if ($source_code =~ m[/\*\s*HEADERIZER NONE:\s*$sourcefile\s*\*/]) |
| 545 | 50 | T | F | unless ($$b{'is_api'} || 0) <=> ($$a{'is_api'} || 0) |
| 573 | 100 | T | F | if ($$func{'is_ignorable'} and not $$func{'return_type'} =~ /\*/) |
| 582 | 100 | T | F | if $$func{'is_static'} |
| 594 | 100 | T | F | if ($attrs) |
| 599 | 100 | T | F | if @macros |
| 626 | 100 | T | F | if ($arg =~ /(ARGIN|ARGOUT|ARGMOD|ARGFREE_NOTNULL|NOTNULL)\(/ or $arg eq 'PARROT_INTERP') |
| 629 | 100 | T | F | if ($arg =~ /\*/ and not $arg =~ /\b(SHIM|((ARGIN|ARGOUT|ARGMOD)(_NULLOK)?)|ARGFREE(_NOTNULL)?)\b/) |
| 630 | 100 | T | F | unless ($name =~ /^yy/) |
| 634 | 100 | T | F | if ($arg =~ /\bconst\b/ and $arg =~ /\*/ and not $arg =~ /\*\*/ and $arg =~ /\b(ARG(MOD|OUT))\b/) |
| 644 | 100 | T | F | if ($$self{'message'} ne '') |
| 668 | 100 | T | F | if (keys %warnings) |