| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless @_ == 2 |
|
20
|
0 |
0 |
unless open RD, '<', $_[0] |
|
22
|
0 |
0 |
unless open WR, '>', $_[0] |
|
27
|
0 |
0 |
if $_ =~ /pTHX/ |
|
28
|
0 |
0 |
if $_ =~ /aTHX/ |
|
31
|
0 |
0 |
if $aTHX_warn |
|
34
|
0 |
0 |
if $pTHX_warn |
|
41
|
0 |
0 |
if ($xs[$i] =~ /.+\b$f\b(\s+)?\(/ and not $seen_pthx) |
|
42
|
0 |
0 |
$xs[$i] =~ /(a|p)THX/ ? : |
|
|
0 |
0 |
!($xs[$i] =~ /\((\s+)?(void)?(\s+)?\)/) ? : |
|
46
|
0 |
0 |
if $xs[$i] =~ /pTHX/ |
|
50
|
0 |
0 |
if ($xs[$i] =~ /^(S|H|A)V \*\n/ || $xs[$i] =~ /^(signed |unsigned )?(long)?\s?int(\s\*)?\n/ || $xs[$i] =~ /^(long)?\s?double(\s\*)?\n/ || $xs[$i] =~ /^(signed |unsigned )?long(\s\*)?\n/ and $xs[$i + 1] =~ /^$f\b/) |
|
62
|
0 |
0 |
if (not $xs[$i + 1] =~ /\(\)/) { } |
|
68
|
0 |
0 |
if (not $xs[$i + 2 + $jump] =~ /\S/) { } |
|
80
|
0 |
0 |
if ($seen_pthx) { } |
|
81
|
0 |
0 |
unless $xs[$i] =~ /^$f\b/ |
|
83
|
0 |
0 |
unless $xs[$i] =~ /aTHX|pTHX/ or $xs[$i] =~ /^$f\b/ |
|
89
|
0 |
0 |
if ($xs[$i] =~ /\b$f\b/ and $xs[$i] =~ /\bpTHX\b|\bpTHX_\b/) |
|
93
|
0 |
0 |
if $xs[$i] =~ /\b$f(\s+)?\(/ |
|
95
|
0 |
0 |
unless $xs[$i] =~ /(p|a)THX/ |
|
103
|
0 |
0 |
unless close WR |
|
116
|
0 |
0 |
if $_[0] =~ /$_/ |