| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless @_ == 2 |
|
20
|
0 |
0 |
unless open RD, '<', $_[0] |
|
22
|
0 |
0 |
unless close RD |
|
23
|
0 |
0 |
unless open WR, '>', $_[0] |
|
28
|
0 |
0 |
if $_ =~ /pTHX/ |
|
29
|
0 |
0 |
if $_ =~ /aTHX/ |
|
32
|
0 |
0 |
if $aTHX_warn |
|
35
|
0 |
0 |
if $pTHX_warn |
|
42
|
0 |
0 |
if ($xs[$i] =~ /.+\b$f\b(\s+)?\(/ and not $seen_pthx) |
|
43
|
0 |
0 |
$xs[$i] =~ /(a|p)THX/ ? : |
|
|
0 |
0 |
!($xs[$i] =~ /\((\s+)?(void)?(\s+)?\)/) ? : |
|
47
|
0 |
0 |
if $xs[$i] =~ /pTHX/ |
|
51
|
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/) |
|
63
|
0 |
0 |
if (not $xs[$i + 1] =~ /\(\)/) { } |
|
69
|
0 |
0 |
if ($xs[$i + 2 + $jump] =~ /\S/) { } |
|
81
|
0 |
0 |
if ($seen_pthx) { } |
|
82
|
0 |
0 |
unless $xs[$i] =~ /^$f\b/ |
|
84
|
0 |
0 |
unless $xs[$i] =~ /aTHX|pTHX/ or $xs[$i] =~ /^$f\b/ |
|
90
|
0 |
0 |
if ($xs[$i] =~ /\b$f\b/ and $xs[$i] =~ /\bpTHX\b|\bpTHX_\b/) |
|
94
|
0 |
0 |
if $xs[$i] =~ /\b$f(\s+)?\(/ |
|
96
|
0 |
0 |
unless $xs[$i] =~ /(p|a)THX/ |
|
104
|
0 |
0 |
unless close WR |
|
117
|
0 |
0 |
if $_[0] =~ /$_/ |