| line |
true |
false |
branch |
|
298
|
952 |
784 |
if (@fields and $fields[0] eq "-parent") |
|
305
|
0 |
1736 |
if @bad |
|
315
|
1736 |
0 |
if ($USING_FIELDS) |
|
316
|
0 |
1736 |
unless eval "package $class; fields->import(\@fields); 1;" |
|
342
|
28 |
0 |
if (eval "require Hash::Util; 1;") |
|
355
|
10262 |
2016 |
unless defined $args |
|
359
|
12278 |
0 |
if ($USING_FIELDS) { } |
|
410
|
2806 |
2011 |
unless defined $flags |
|
416
|
1 |
2562 |
unless $line =~ /\S/ |
|
421
|
440 |
2122 |
if ($flags & $keywords_flag_MODULE and ExtUtils::ParseXS::Utilities::looks_like_MODULE_line($line)) { } |
|
|
982 |
1140 |
elsif ($line =~ s/^(\s*)($pat)\s*:\s*(?:#.*)?/$1/s or $flags & $keywords_flag_NOT_IMPLEMENTED_YET and $line =~ s/^(\s*)(NOT_IMPLEMENTED_YET)/$1/) { } |
|
446
|
1385 |
0 |
if ($node->parse($pxs, $xsub, $xbody)) |
|
452
|
152 |
1233 |
if defined $max and $max >= $n |
|
471
|
1140 |
2079 |
if ($kids) |
|
493
|
0 |
0 |
unless defined $depth |
|
496
|
0 |
0 |
unless defined $f |
|
498
|
0 |
0 |
if length $f > 10 |
|
501
|
0 |
0 |
defined $l ? : |
|
517
|
0 |
0 |
if (not defined $v) { } |
|
|
0 |
0 |
elsif (ref $v) { } |
|
|
0 |
0 |
elsif ($v =~ /^-?\d+(\.\d+)?$/) { } |
|
530
|
0 |
0 |
if length $v > $max |
|
540
|
0 |
0 |
if ($self->{'kids'}) |
|
596
|
0 |
433 |
unless $preamble->parse($pxs, $self) |
|
612
|
1 |
432 |
unless $c_part_result |
|
619
|
0 |
432 |
unless $C_part_postamble->parse($pxs, $self) |
|
627
|
0 |
370 |
unless $cpp_scope->parse($pxs) |
|
641
|
0 |
370 |
unless $pre_boot->parse($pxs) |
|
649
|
0 |
370 |
unless $boot_xsub->parse($pxs) |
|
654
|
0 |
370 |
unless $pxs->{'proto_behaviour_specified'} |
|
708
|
369 |
2 |
if $pxs->{'config_WantLineNumbers'} |
|
738
|
432 |
9 |
if (ExtUtils::ParseXS::Utilities::looks_like_MODULE_line($pxs->{'lastline'})) |
|
748
|
1 |
8 |
$pxs->{'lastline'} =~ /^=/ ? : |
|
753
|
0 |
9 |
unless $node->parse($pxs) |
|
770
|
369 |
2 |
if $pxs->{'config_WantLineNumbers'} |
|
801
|
1 |
4 |
if $cut |
|
802
|
0 |
4 |
unless defined $pxs->{'lastline'} |
|
847
|
1 |
0 |
if $pxs->{'config_WantLineNumbers'} |
|
876
|
6 |
180 |
if ExtUtils::ParseXS::Utilities::looks_like_MODULE_line($pxs->{'lastline'}) |
|
877
|
1 |
179 |
if $pxs->{'lastline'} =~ /^=/ |
|
881
|
1 |
178 |
unless defined $pxs->{'lastline'} |
|
1081
|
368 |
2 |
if $pxs->{'config_WantLineNumbers'} |
|
1144
|
86 |
1591 |
unless @{$pxs->{'line'};} |
|
1146
|
460 |
1131 |
if (not defined $self->{'line_no'} and defined $pxs->{'line_no'}[0]) |
|
1155
|
0 |
1591 |
unless $pxs->{'line'}[0] =~ /\S/ |
|
1165
|
46 |
1545 |
if ($pxs->{'line'}[0] =~ /^#/) |
|
1167
|
0 |
46 |
unless $node->parse($pxs) |
|
1171
|
6 |
40 |
unless $node->{'is_cond'} |
|
1175
|
23 |
17 |
unless ($node->{'is_if'}) |
|
1178
|
1 |
22 |
if $self->{'type'} ne "if" |
|
1196
|
0 |
23 |
unless $scope->parse($pxs) |
|
1203
|
0 |
22 |
unless (defined $last and $last->isa("ExtUtils::ParseXS::Node::global_cpp_line") and $last->{'is_cond'} and not $last->{'is_if'}) |
|
1219
|
20 |
2 |
if (grep {not ref($_) =~ /::global_cpp_line$/;} @{$$scope{"kids"};}) |
|
1228
|
16 |
6 |
if $last->{'is_endif'} |
|
1244
|
3 |
1542 |
if ($pxs->{'line'}[0] =~ /^\s/) |
|
1249
|
1 |
2 |
if ($pxs->{'line'}[0] =~ /^\s+($file_scoped_keywords)\s*:/) |
|
1320
|
1049 |
462 |
unless @{$pxs->{'line'};} |
|
1325
|
2 |
434 |
unless $xsub->parse($pxs) |
|
1332
|
4 |
430 |
if ($self->{'seen_xsubs'}{$name}) |
|
1343
|
0 |
434 |
if @{$pxs->{'line'};} |
|
1358
|
20 |
376 |
if defined $g |
|
1372
|
20 |
376 |
if (defined $g) |
|
1408
|
0 |
46 |
unless my($directive, $rest) = $line =~ /^ \# \s* (\w+) (?:\s+ (.*) \s* $)?/sx |
|
1410
|
22 |
24 |
unless defined $rest |
|
1465
|
2 |
2 |
if defined $line0 and $line0 =~ /\S/ |
|
1479
|
4 |
0 |
if ($pxs->{'config_WantLineNumbers'} and @{$self->{'lines'};} and not $self->{'lines'}[0] =~ /^\s*#\s*line\b/) |
|
1668
|
369 |
1 |
$pxs->{'VERSIONCHECK_value'} ? : |
|
1686
|
363 |
7 |
if $pxs->{'seen_an_XSUB'} |
|
1704
|
369 |
1 |
if ($pxs->{'VERSIONCHECK_value'}) { } |
|
1730
|
35 |
335 |
if ($pxs->{'need_boot_cv'}) |
|
1740
|
10 |
360 |
if (keys %{$$pxs{"map_overloaded_package_to_C_package"};}) |
|
1761
|
7 |
4 |
unless defined $fallback |
|
1762
|
1 |
8 |
$fallback eq 'FALSE' ? : |
|
|
2 |
9 |
$fallback eq 'TRUE' ? : |
|
1784
|
35 |
335 |
if ($pxs->{'need_boot_cv'}) |
|
1792
|
14 |
356 |
if (@$later) |
|
1802
|
14 |
0 |
if $pxs->{'config_WantLineNumbers'} |
|
1952
|
2 |
457 |
unless $decl->parse($pxs, $self) |
|
1980
|
41 |
884 |
if (defined $case) { } |
|
1983
|
2 |
39 |
if ($seen_bare_xbody) |
|
1988
|
1 |
40 |
unless ($case_had_cond) |
|
1995
|
444 |
440 |
if ($num++) |
|
1998
|
434 |
10 |
unless @{$pxs->{'line'};} |
|
2000
|
9 |
1 |
$l =~ /^$ExtUtils::ParseXS::BLOCK_regexp/o ? : |
|
2011
|
0 |
468 |
unless $xbody->parse($pxs, $self) |
|
2014
|
41 |
427 |
if (defined $case) { } |
|
2027
|
20 |
0 |
if ($self->{'map_alias_name_to_value'} and keys %{$$self{"map_alias_name_to_value"};}) |
|
2032
|
16 |
4 |
unless defined $self->{'map_alias_name_to_value'}{$pname} |
|
2037
|
1 |
15 |
if ($self->{'map_interface_name_short_to_original'} and $self->{'map_alias_name_to_value'}) |
|
2057
|
1 |
432 |
$self->{'decl'}{'return_type'}{'extern_C'} ? : |
|
2070
|
23 |
410 |
if $self->{'seen_ALIAS'} |
|
2074
|
16 |
417 |
if ($self->{'seen_INTERFACE'}) |
|
2077
|
16 |
0 |
unless $pxs->{'config_RetainCplusplusHierarchicalTypes'} |
|
2078
|
16 |
0 |
if $self->{'seen_INTERFACE'} |
|
2094
|
0 |
433 |
if $pxs->{'config_allow_exceptions'} |
|
2099
|
429 |
4 |
if ($condition_code) { } |
|
2121
|
8 |
425 |
if $self->{'seen_PPCODE'} |
|
2125
|
8 |
425 |
if $self->{'seen_PPCODE'} |
|
2142
|
0 |
433 |
if $pxs->{'config_allow_exceptions'} |
|
2153
|
0 |
433 |
if $^O eq "hpux" |
|
2158
|
425 |
8 |
unless ($self->{'seen_PPCODE'}) |
|
2162
|
248 |
177 |
$nret ? : |
|
2167
|
0 |
433 |
if $^O eq "hpux" |
|
2196
|
42 |
391 |
if ($self->{'prototype'}) { } |
|
2206
|
1 |
41 |
if ($self->{'prototype'} eq 2) { } |
|
|
35 |
6 |
elsif ($self->{'prototype'} eq 1) { } |
|
2228
|
20 |
413 |
if ($self->{'map_alias_name_to_value'} and keys %{$$self{'map_alias_name_to_value'};}) { } |
|
|
4 |
409 |
elsif ($self->{'attributes'}) { } |
|
|
15 |
394 |
elsif ($self->{'seen_INTERFACE'} or $self->{'seen_INTERFACE_MACRO'}) { } |
|
|
356 |
38 |
elsif ($newXS eq 'newXS_deffile') { } |
|
2264
|
18 |
1 |
unless $yname =~ /::/ |
|
2267
|
15 |
4 |
unless defined $macro |
|
2343
|
0 |
460 |
unless $return_type->parse($pxs, $xsub) |
|
2358
|
2 |
458 |
unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*(const)?\s*(;\s*)?$/s |
|
2365
|
1 |
457 |
if (defined $const and not defined $class) |
|
2371
|
2 |
456 |
if ($return_type->{'static'} and not defined $class) |
|
2384
|
0 |
458 |
if $ExtUtils::ParseXS::Is_VMS |
|
2417
|
0 |
457 |
unless $params->parse($pxs, $xsub, $params_text) |
|
2425
|
61 |
695 |
if defined $_->{'in_out'} |
|
2469
|
10 |
452 |
if $type =~ s/^NO_OUTPUT\s+// |
|
2487
|
67 |
395 |
if $pxs->{'config_allow_argtypes'} and $type =~ s/^(.*?\w.*?) \s* \b (\w+\s*\(.*)/$1/sx |
|
2490
|
2 |
460 |
unless (@{$pxs->{'line'};}) |
|
2491
|
1 |
1 |
if ($line =~ /^([A-Z][A-Z_]+):/) |
|
2503
|
1 |
459 |
if $type =~ s/^extern "C"\s+// |
|
2504
|
6 |
454 |
if $type =~ s/^static\s+// |
|
2507
|
252 |
208 |
if ($type ne "void") |
|
2516
|
213 |
39 |
if ($pxs->{'config_optimize'} and $outputmap and $outputmap->targetable_legacy) |
|
2608
|
7 |
507 |
unless (defined $name) |
|
2609
|
4 |
3 |
if ($param_text =~ /^ SV \s* \* $/x) |
|
2619
|
148 |
359 |
unless length $type and $type =~ /\S/ |
|
2625
|
29 |
478 |
if ($old_param) |
|
2629
|
16 |
13 |
if ($name eq 'RETVAL' and $old_param->{'is_synthetic'} and not defined $old_param->{'arg_num'}) { } |
|
2644
|
8 |
8 |
unless defined $type |
|
2656
|
72 |
422 |
if (defined $out_type) { } |
|
2659
|
1 |
71 |
unless $pxs->{'config_allow_inout'} |
|
2661
|
7 |
65 |
$out_type eq 'IN' ? : |
|
2669
|
2 |
492 |
if (defined $type and not $pxs->{'config_allow_argtypes'}) |
|
2678
|
34 |
460 |
if ($name =~ /^length\( \s* (\w+) \s* \)\z/x) |
|
2681
|
1 |
33 |
unless $pxs->{'config_allow_argtypes'} |
|
2685
|
2 |
32 |
if (defined $default) |
|
2690
|
2 |
32 |
unless (defined $type) |
|
2697
|
5 |
29 |
if (defined $orig_out_type) |
|
2720
|
353 |
141 |
if (defined $type) |
|
2725
|
61 |
433 |
if length $out_type |
|
2726
|
45 |
449 |
if $out_type =~ /^OUT/ |
|
2732
|
37 |
457 |
if (defined $default) |
|
2733
|
1 |
36 |
unless $default =~ /\S/ |
|
2738
|
27 |
9 |
$self->{'is_ansi'} ? : |
|
2760
|
328 |
456 |
unless $self->{'arg_num'} |
|
2762
|
36 |
420 |
unless defined $type |
|
2764
|
7 |
413 |
unless defined $typemap |
|
2766
|
409 |
4 |
unless defined $p and length $p |
|
2850
|
750 |
0 |
unless $pxs->{'config_RetainCplusplusHierarchicalTypes'} |
|
2854
|
13 |
737 |
if (defined $init) { } |
|
|
337 |
400 |
elsif ($no_init) { } |
|
2858
|
0 |
13 |
if $no_init |
|
2887
|
3 |
397 |
unless ($typemap) |
|
2899
|
1 |
396 |
if $xsub->{'decl'}{'name'} =~ /DESTROY$/ |
|
2905
|
3 |
394 |
unless (defined $inputmap) |
|
2927
|
6 |
388 |
if ($expr =~ /\bDO_ARRAY_ELEM\b/) |
|
2929
|
1 |
5 |
unless ($subtypemap) |
|
2936
|
1 |
4 |
unless ($subinputmap) |
|
2953
|
1 |
391 |
if ($expr =~ m[/\*.*scope.*\*/]i) |
|
2970
|
29 |
363 |
if ($self->{'length_param'}) |
|
2971
|
1 |
28 |
if ($expr =~ /\bSTRLEN_length_of_\$var\b/) { } |
|
2975
|
2 |
26 |
unless ($expr =~ s/ \b
(SvPV\w*)_nolen(\w*)
\(
\s*\$arg\s*
\)
/$1$2(\$arg, STRLEN_length_of_\$var)/x) |
|
3044
|
229 |
88 |
if ($var eq "RETVAL") |
|
3053
|
0 |
229 |
if $do_setmagic |
|
3075
|
3 |
314 |
unless (defined $type) |
|
3097
|
314 |
0 |
unless $pxs->{'config_RetainCplusplusHierarchicalTypes'} |
|
3103
|
47 |
267 |
if defined $out_num |
|
3113
|
11 |
303 |
if (defined $output_code) { } |
|
|
4 |
299 |
elsif ($type =~ /^array\(([^,]*),(.*)\)/) { } |
|
3129
|
2 |
2 |
if ($var ne "RETVAL") |
|
3132
|
1 |
1 |
defined $out_num ? : |
|
3146
|
2 |
297 |
unless ($typemap) |
|
3152
|
3 |
294 |
unless ($outputmap) |
|
3165
|
46 |
261 |
defined $out_num ? : |
|
3188
|
8 |
299 |
if (not defined $output_code and $expr =~ /\bDO_ARRAY_ELEM\b/) |
|
3192
|
2 |
6 |
if ($var ne "RETVAL") |
|
3204
|
1 |
1 |
defined $out_num ? : |
|
3211
|
1 |
5 |
unless ($subtypemap) |
|
3219
|
1 |
4 |
unless ($suboutputmap) |
|
3259
|
32 |
704 |
if ($self->{'is_length'}) { } |
|
|
29 |
675 |
elsif ($self->{'length_param'}) { } |
|
3311
|
3 |
701 |
if ($type =~ / \( \s* \* \s* \) /x) { } |
|
3317
|
11 |
690 |
defined $xsub->{'decl'}{'class'} && $var eq 'CLASS' ? : |
|
3325
|
0 |
704 |
unless $lookup |
|
3331
|
8 |
696 |
unless defined $init_template |
|
3333
|
0 |
696 |
unless ($is_template) |
|
3345
|
402 |
294 |
length $init_template ? : |
|
3351
|
28 |
668 |
if (defined $default and not defined $init and not $no_init) { } |
|
|
304 |
364 |
elsif ($xsub->{'SCOPE_enabled'} or not $init_code =~ /^\s*\Q$var\E =/) { } |
|
3368
|
1 |
27 |
if ($default eq 'NO_INIT') { } |
|
3378
|
27 |
0 |
$init_code =~ /\S/ ? : |
|
3402
|
10 |
294 |
if $init_code =~ /\S/ |
|
3409
|
0 |
364 |
unless $init_code =~ s/^\s*\Q$var\E(\s*=\s*)/$1/ |
|
3418
|
6 |
690 |
if (defined $defer) |
|
3508
|
219 |
88 |
if ($var eq "RETVAL") |
|
3526
|
48 |
259 |
if defined $out_num |
|
3531
|
48 |
259 |
defined $out_num ? : |
|
3532
|
0 |
307 |
unless $lookup |
|
3538
|
14 |
293 |
unless defined $expr |
|
3540
|
4 |
289 |
if ($saw_DAE) { } |
|
|
11 |
278 |
elsif (not $is_template) { } |
|
3574
|
35 |
254 |
if ($var ne "RETVAL" and not defined $out_num) |
|
3590
|
0 |
35 |
unless (defined $num) |
|
3598
|
3 |
32 |
defined $output_code ? : |
|
3606
|
32 |
3 |
if not $self->{'in_output'} or $do_setmagic |
|
3613
|
8 |
246 |
if (defined $output_code and not defined $out_num) |
|
3618
|
0 |
8 |
if $xbody->{'output_part'}{'stack_was_reset'} |
|
3696
|
9 |
237 |
if ($evalexpr =~ /^\s*\Q$arg\E\s*=/) { } |
|
3701
|
6 |
3 |
if ($evalexpr =~ /^\s*
\Q$arg\E
\s*=\s*
( boolSV\(.*\)
| &PL_sv_yes
| &PL_sv_no
| &PL_sv_undef
| &PL_sv_zero
)
\s*;\s*$
/x) { } |
|
3723
|
1 |
2 |
if $ntype eq "SVPtr" |
|
3751
|
200 |
37 |
if ($pxs->{'config_optimize'} and 'ExtUtils::Typemaps::OutputMap'->targetable($evalexpr) and not $xbody->{'output_part'}{'targ_used'}) { } |
|
3797
|
21 |
225 |
if ($retvar eq 'TARG' and not $xsub->{'decl'}{'return_type'}{'use_early_targ'}) { } |
|
|
39 |
186 |
elsif ($retvar eq 'RETVALSV') { } |
|
3806
|
37 |
209 |
if $want_newmortal |
|
3815
|
207 |
39 |
if $retvar ne "RETVALSV" |
|
3817
|
245 |
1 |
unless ($evalexpr =~ /^\s*\Q$var\E\s*=\s*\Q$var\E\s*;\s*$/) |
|
3822
|
3 |
243 |
if $do_mortalize |
|
3826
|
240 |
6 |
unless $retvar eq $orig_arg |
|
3828
|
60 |
186 |
if ($do_scope) |
|
3840
|
64 |
182 |
if $xbody->{'output_part'}{'stack_was_reset'} |
|
3951
|
307 |
151 |
if ($params_text =~ /\S/) { } |
|
3957
|
306 |
1 |
if ($can_use_regex) { } |
|
3979
|
25 |
433 |
if (defined $xsub->{'decl'}{'class'}) |
|
3985
|
2 |
12 |
$xsub->{'decl'}{'is_const'} ? : |
|
|
11 |
14 |
$xsub->{'decl'}{'return_type'}{'static'} || $xsub->{'decl'}{'name'} eq 'new' ? : |
|
4019
|
250 |
208 |
if ($xsub->{'decl'}{'return_type'}{'type'} ne "void") |
|
4041
|
1 |
527 |
if $self->{'seen_ellipsis'} |
|
4043
|
14 |
514 |
if ($param_text eq "...") |
|
4049
|
16 |
497 |
unless $param->parse($pxs, $self, $param_text) |
|
4053
|
493 |
4 |
unless $param->{'var'} eq "SV *" |
|
4054
|
36 |
461 |
if defined $param->{'default'} |
|
4060
|
428 |
34 |
unless defined $param->{'in_out'} and $param->{'in_out'} eq "OUTLIST" or $param->{'is_length'} |
|
4069
|
722 |
34 |
unless $param->{'is_length'} |
|
4071
|
33 |
1 |
if (exists $self->{'names'}{$name}) { } |
|
4075
|
2 |
31 |
unless defined $self->{'names'}{$name}{'type'} |
|
4079
|
2 |
31 |
if defined $self->{'names'}{$name}{'default'} |
|
4082
|
2 |
31 |
if defined $in_out and not $in_out =~ /^IN/ |
|
4104
|
33 |
403 |
defined $_->{'default_usage'} ? : |
|
4112
|
10 |
419 |
if $self->{'seen_ellipsis'} |
|
4136
|
201 |
349 |
if $param->{'is_synthetic'} and not $param->{'var'} eq 'RETVAL' && defined $param->{'arg_num'} |
|
4138
|
1 |
348 |
if ($param->{'var'} eq "SV *") |
|
4145
|
296 |
52 |
unless defined $io |
|
4152
|
15 |
31 |
unless defined $param->{'arg_num'} or $io eq "OUTLIST" or $param->{'is_length'} |
|
4155
|
54 |
279 |
if $param->{'is_addr'} or $io =~ /OUT/ |
|
4158
|
314 |
19 |
defined $t ? : |
|
4178
|
67 |
1 |
defined $_->{'proto'} ? : |
|
4182
|
8 |
27 |
if ($min < $self->{'nargs'}) |
|
4187
|
5 |
30 |
if $self->{'seen_ellipsis'} |
|
4268
|
2342 |
0 |
if ($kid->parse($pxs, $xsub, $self)) |
|
4284
|
0 |
457 |
$pxs->{'config_allow_exceptions'} ? : |
|
4287
|
457 |
0 |
if ($self->{'kids'}) |
|
4295
|
4 |
453 |
if ($xsub->{'SCOPE_enabled'}) |
|
4300
|
4 |
0 |
unless $xsub->{'seen_PPCODE'} |
|
4306
|
0 |
457 |
if $pxs->{'config_allow_exceptions'} |
|
4340
|
99 |
377 |
if ($input->parse($pxs, $xsub, $xbody) and $input->{'kids'} and @{$input->{'kids'};}) |
|
4365
|
37 |
750 |
unless defined $ioparam->{'type'} |
|
4390
|
0 |
784 |
unless defined $name |
|
4391
|
328 |
456 |
unless $ioparam->{'arg_num'} |
|
4395
|
452 |
4 |
unless defined $ioproto |
|
4396
|
2 |
454 |
if (defined $proto and $proto ne $ioproto) |
|
4418
|
153 |
304 |
if ($self->{'kids'}) |
|
4423
|
4 |
453 |
if $xsub->{'SCOPE_enabled'} |
|
4438
|
214 |
243 |
if ($xsub->{'decl'}{'return_type'}{'use_early_targ'}) |
|
4500
|
22 |
435 |
if ($self->{'kids'}) |
|
4524
|
111 |
357 |
if $self->parse_keywords($pxs, $xsub, $xbody, 1, "CODE|PPCODE", $keywords_flag_NOT_IMPLEMENTED_YET) |
|
4536
|
0 |
357 |
unless $autocall->parse($pxs, $xsub, $xbody) |
|
4550
|
457 |
0 |
if ($self->{'kids'}) |
|
4600
|
258 |
210 |
$xsub->{'CODE_sets_ST0'} || $xsub->{'decl'}{'return_type'}{'type'} ne 'void' && !$xsub->{'decl'}{'return_type'}{'no_output'} ? : |
|
4630
|
514 |
23 |
unless defined $ioparam->{'in_out'} and $ioparam->{'in_out'} =~ /OUT$/ and not $ioparam->{'in_output'} or $ioparam->{'var'} eq "RETVAL" and $ioparam->{'in_output'} || $xbody->{'seen_autocall'} && $xsub->{'decl'}{'return_type'}{'type'} ne 'void' && !$xsub->{'decl'}{'return_type'}{'no_output'} or $ioparam->{'in_output'} and $ioparam->{'var'} ne "RETVAL" |
|
4642
|
735 |
48 |
unless defined $ioparam->{'in_out'} and $ioparam->{'in_out'} =~ /OUTLIST$/ |
|
4663
|
70 |
387 |
if ($self->{'kids'}) |
|
4672
|
3 |
38 |
if ($xbody->{'seen_RETVAL_in_CODE'} and not $retval && $retval->{'in_output'} and $xsub->{'decl'}{'return_type'}{'type'} ne "void") |
|
4688
|
17 |
755 |
if defined $_->{'in_out'} and $_->{'in_out'} =~ /OUT$/ |
|
4697
|
39 |
418 |
if ($extra) |
|
4710
|
19 |
438 |
if $n > $ioparams->{'min_args'} + 1 |
|
4716
|
219 |
168 |
if ($retval and $retval->{'in_output'} or $xbody->{'seen_autocall'} and $xsub->{'decl'}{'return_type'}{'type'} ne "void" and not $xsub->{'decl'}{'return_type'}{'no_output'}) |
|
4729
|
65 |
707 |
if defined $_->{'in_out'} |
|
4774
|
4 |
453 |
if ($self->{'kids'}) |
|
4828
|
4 |
436 |
unless my($module, $pkg, $prefix) = $line =~ /^
MODULE \s* = \s* ([\w:]+)
(?: \s+ PACKAGE \s* = \s* ([\w:]+))?
(?: \s+ PREFIX \s* = \s* (\S+))?
\s*
$/x |
|
4840
|
436 |
0 |
defined $pkg ? : |
|
4842
|
10 |
426 |
defined $prefix ? : |
|
4848
|
436 |
0 |
if $pxs->{'PACKAGE_class'} ne "" |
|
4904
|
36 |
4 |
if length $cond |
|
4905
|
24 |
16 |
$self->{'num'} > 1 ? : |
|
4937
|
18 |
339 |
if (defined $args) { } |
|
4951
|
16 |
21 |
$param && defined $param->{'type'} ? : |
|
4960
|
357 |
0 |
unless ($pxs->{'config_RetainCplusplusHierarchicalTypes'}) |
|
4978
|
1 |
346 |
if (defined $class and $name eq 'DESTROY') { } |
|
4996
|
183 |
163 |
if ($ret_type ne "void") |
|
5000
|
26 |
320 |
if (defined $class) |
|
5001
|
4 |
22 |
if ($xsub->{'decl'}{'return_type'}{'static'}) { } |
|
5003
|
2 |
2 |
if ($name eq 'new') { } |
|
5011
|
7 |
15 |
if ($name eq 'new') { } |
|
5022
|
0 |
346 |
if defined $strip |
|
5025
|
16 |
330 |
if ($xsub->{'seen_INTERFACE'} or $xsub->{'seen_INTERFACE_MACRO'}) |
|
5029
|
16 |
0 |
unless $pxs->{'config_RetainCplusplusHierarchicalTypes'} |
|
5065
|
0 |
9 |
if $s eq 1 |
|
5066
|
0 |
9 |
if $s eq 0 |
|
5069
|
1 |
8 |
unless $s =~ /^(TRUE|FALSE|UNDEF)$/ |
|
5077
|
1 |
7 |
if exists $pxs->{'map_package_to_fallback_string'}{$pxs->{'PACKAGE_name'}} |
|
5104
|
1 |
6 |
unless length $ver |
|
5108
|
2 |
4 |
unless $ver =~ /^\d+(\.\d*)?$/ |
|
5112
|
1 |
3 |
unless $got >= $ver |
|
5142
|
6 |
7 |
$is_cmd ? : |
|
5144
|
6 |
7 |
if ($is_cmd) { } |
|
5145
|
0 |
6 |
if $^O eq "VMS" |
|
5147
|
1 |
5 |
unless length $f |
|
5150
|
2 |
3 |
if $f =~ /^\s*\|/ or $f =~ /\|\s*$/ |
|
5154
|
1 |
6 |
unless length $f |
|
5157
|
1 |
5 |
if $f =~ /^\s*\|/ |
|
5162
|
1 |
4 |
if $pxs->{'IncludedFiles'}{$f} |
|
5164
|
4 |
0 |
unless $f =~ /\|\s*$/ |
|
5166
|
0 |
4 |
if ($f =~ /\|\s*$/ and $f =~ /^\s*perl\s/) |
|
5193
|
3 |
4 |
if ($is_cmd) { } |
|
5199
|
0 |
3 |
unless open $pxs->{'in_fh'}, "-|", $f |
|
5204
|
1 |
3 |
unless open $pxs->{'in_fh'}, $f |
|
5213
|
3 |
3 |
if ($is_cmd) { } |
|
5222
|
0 |
3 |
$^O =~ /^mswin/i ? : |
|
5228
|
5 |
4 |
unless /^\s*$/ |
|
5232
|
5 |
1 |
if defined $pxs->{'lastline'} |
|
5241
|
0 |
5 |
unless $cpp_scope->parse($pxs) |
|
5246
|
2 |
3 |
unless $isPipe |
|
5254
|
1 |
2 |
if ($isPipe and $?) |
|
5270
|
2 |
2 |
$self->{'is_cmd'} ? : |
|
5354
|
431 |
20 |
if ($keyword eq 'PROTOTYPES') { } |
|
5361
|
3 |
428 |
unless ($s =~ /^ ((ENABLE|DISABLE) D? ;?) \s* $ /xi) |
|
5365
|
26 |
402 |
$en_dis eq 'ENABLE' ? : |
|
5366
|
4 |
424 |
unless ($value =~ /^(ENABLE|DISABLE)$/) |
|
5368
|
2 |
2 |
$self->{'enable'} ? : |
|
5373
|
13 |
7 |
unless $s =~ /^(ENABLE|DISABLE)\s*$/ |
|
5377
|
5 |
2 |
$1 eq 'ENABLE' ? : |
|
5414
|
0 |
0 |
$self->{'enable'} ? : |
|
5477
|
4 |
2 |
if ($xsub) |
|
5479
|
1 |
3 |
if $xsub->{'seen_SCOPE'} |
|
5487
|
4 |
2 |
if $xsub |
|
5633
|
1 |
20 |
if exists $xsub->{'map_interface_name_short_to_original'}{$short} |
|
5649
|
14 |
2 |
unless defined $macro |
|
5653
|
16 |
0 |
unless $pxs->{'config_RetainCplusplusHierarchicalTypes'} |
|
5684
|
2 |
0 |
if ($s =~ /\s/) { } |
|
5728
|
1 |
92 |
unless ($op =~ m[^
^
( [\w:"\\)+\-*/%<>.&|^!~{}=\@\$]+ )
$
]x) |
|
5741
|
1 |
91 |
if exists $xsub->{'overload_name_seen'}{$op} |
|
5815
|
1 |
11 |
if $xsub->{'seen_PROTOTYPE'} |
|
5819
|
6 |
12 |
unless /\S/ |
|
5822
|
2 |
10 |
if ($_ eq 'DISABLE') { } |
|
|
1 |
9 |
elsif ($_ eq 'ENABLE') { } |
|
5830
|
1 |
8 |
unless ExtUtils::ParseXS::Utilities::valid_proto_string($_) |
|
5837
|
1 |
9 |
unless defined $proto |
|
5868
|
6 |
125 |
if defined $line0 and $line0 =~ /\S/ |
|
5893
|
115 |
14 |
if ($pxs->{'config_WantLineNumbers'} and not defined $line0 && ($line0 =~ /^\s*#\s*line\b/ || $line0 =~ /^#if XSubPPtmp/)) |
|
5911
|
115 |
14 |
if $pxs->{'config_WantLineNumbers'} |
|
5975
|
1 |
100 |
if defined $xsub->{'CODE_sets_ST0'} and $xsub->{'CODE_sets_ST0'} ne $st0 |
|
6035
|
1 |
8 |
if @{$pxs->{'line'};} |
|
6055
|
0 |
8 |
if $xsub->{'SCOPE_enabled'} |
|
6058
|
0 |
8 |
if $^O eq "hpux" |
|
6066
|
0 |
8 |
if $^O eq "hpux" |
|
6113
|
153 |
200 |
if ($do_notimplemented) |
|
6116
|
2 |
151 |
if $pxs->{'line'}[0] =~ /^\s*NOT_IMPLEMENTED_YET/ |
|
6119
|
69 |
282 |
unless ($pxs->{'line'}[0] =~ /\S/) |
|
6131
|
252 |
25 |
if ($kid->parse($pxs, $xsub, $xbody, $self)) |
|
6148
|
8 |
183 |
unless $self->{'kids'} |
|
6265
|
1 |
52 |
if not $is_symbolic and $value =~ /:/ |
|
6270
|
49 |
4 |
unless $alias =~ /::/ |
|
6272
|
7 |
46 |
if ($is_symbolic) |
|
6274
|
5 |
2 |
unless $value =~ /::/ |
|
6275
|
6 |
1 |
if (defined $xsub->{'map_alias_name_to_value'}{$value}) { } |
|
|
0 |
1 |
elsif ($value eq $fname) { } |
|
6287
|
3 |
50 |
if (defined $prev_value) |
|
6288
|
1 |
2 |
if ($prev_value eq $value) { } |
|
6303
|
46 |
7 |
unless ($is_symbolic) |
|
6305
|
39 |
7 |
unless $xsub->{'map_alias_value_to_name_seen_hash'}{$value} |
|
6310
|
3 |
43 |
if $value eq 0 and not defined $xsub->{'map_alias_name_to_value'}{$fname} |
|
6311
|
8 |
1 |
if (@keys and $pxs->{'config_author_warnings'}) |
|
6327
|
4 |
4 |
$value eq '0' ? : |
|
|
5 |
3 |
!$xsub->{'alias_clash_hinted'}++ ? : |
|
6340
|
2 |
51 |
if $line =~ /\S/ |
|
6429
|
122 |
24 |
unless $line =~ /[=;+].*\S/ |
|
6435
|
26 |
120 |
if ($line =~ s/\s* ([=;+]) \s* (.*) $//sx) |
|
6437
|
5 |
21 |
unless $var_init =~ /\S/ and not $var_init =~ /^\s*;\s*$/ |
|
6469
|
1 |
140 |
unless (my($var_type, $var_addr, $var_name) = $line =~ /^
( .*? [^&\s] ) # type
\s*
(\&?) # addr
\s* \b
(\w+ | length\(\w+\)) # name or length(name)
$
/sx) |
|
6475
|
2 |
138 |
if ($var_name =~ /^length\((\w+)\)$/) |
|
6487
|
128 |
10 |
if (defined $ioparam) { } |
|
6496
|
7 |
121 |
if ($ioparam->{'in_input'} or not $ioparam->{'is_synthetic'} and defined $ioparam->{'type'}) |
|
6504
|
11 |
3 |
if ($var_name eq "RETVAL" and $ioparam->{'is_synthetic'}) |
|
6508
|
6 |
5 |
unless (defined $ioparam->{'arg_num'}) |
|
6543
|
20 |
111 |
if (not $no_init and defined $init_op) { } |
|
6547
|
1 |
19 |
if ($init_op =~ /^[=;]$/ and $var_init =~ /^NO_INIT\s*;?\s*$/) { } |
|
|
13 |
6 |
elsif ($init_op eq '=') { } |
|
6575
|
9 |
102 |
if $is_alien |
|
6619
|
8 |
123 |
if $ioparam->{'is_synthetic'} |
|
6666
|
0 |
83 |
unless $line =~ /\S/ |
|
6674
|
7 |
76 |
if ($line =~ /^\s*SETMAGIC\s*:\s*(.*?)\s*$/) |
|
6676
|
1 |
6 |
unless ($arg =~ /^(ENABLE|DISABLE)$/) |
|
6680
|
3 |
3 |
$arg eq 'ENABLE' ? : |
|
6698
|
2 |
71 |
if ($ioparam and $ioparam->{'in_output'}) |
|
6703
|
3 |
46 |
if ($outarg eq "RETVAL" and $xsub->{'decl'}{'return_type'}{'no_output'}) |
|
6711
|
3 |
68 |
if (not $ioparam or $outarg ne "RETVAL" and not $ioparam->{'arg_num'}) |
|
6722
|
45 |
23 |
$outarg eq 'RETVAL' ? : |
|
6723
|
11 |
57 |
if length $outcode |
|
6765
|
45 |
23 |
if $self->{'name'} eq "RETVAL" |
|
6768
|
0 |
23 |
unless $ioparam |