| line |
true |
false |
branch |
|
147
|
120 |
85 |
if ('PDLA::PP::Rule' eq $str) { } |
|
154
|
60 |
145 |
exists $self->{'doc'} ? : |
|
160
|
0 |
619 |
if $main::PP_VERBOSE |
|
182
|
0 |
270 |
if $nargs < 0 or $nargs > 3 |
|
185
|
248 |
22 |
unless ref $targets eq 'ARRAY' |
|
188
|
236 |
34 |
if ($#_ != -1) |
|
189
|
200 |
36 |
if (ref $_[-1] eq 'CODE') |
|
195
|
234 |
2 |
if (defined $conditions) { } |
|
196
|
64 |
170 |
unless ref $conditions eq 'ARRAY' |
|
201
|
58 |
178 |
if defined $doc |
|
221
|
8 |
218 |
if (exists $pars->{$target}) |
|
245
|
40 |
365 |
if substr($condition, 0, 1) eq '_' |
|
247
|
61 |
304 |
unless (exists $pars->{$condition}) |
|
266
|
8 |
201 |
if $self->check_if_targets_exist($pars) |
|
267
|
61 |
140 |
unless $self->check_if_conditions_exist($pars) |
|
306
|
0 |
146 |
unless exists $self->{'ref'} |
|
316
|
48 |
98 |
unless $self->is_valid($pars) |
|
326
|
0 |
97 |
unless $#retval == $#$targets |
|
334
|
0 |
109 |
if exists $pars->{$target} |
|
340
|
0 |
109 |
if (defined $result and $result eq 'DO NOT SET!!') { } |
|
360
|
0 |
4 |
unless @_ == 3 |
|
370
|
0 |
4 |
if $self->is_valid($pars) |
|
397
|
0 |
50 |
unless $#$targets == 0 |
|
408
|
0 |
44 |
unless exists $self->{'returns.value'} |
|
416
|
16 |
28 |
unless $self->is_valid($pars) |
|
508
|
16 |
0 |
unless (exists $self->{'doc'}) |
|
514
|
0 |
16 |
unless $#$targets == 0 |
|
530
|
0 |
15 |
unless exists $self->{'insertname.value'} |
|
536
|
1 |
14 |
unless $self->is_valid($pars) |
|
570
|
15 |
1 |
ref $src ? : |
|
589
|
15 |
1 |
ref $src ? : |
|
594
|
108 |
0 |
if defined $syms{$1} or confess("$1 not defined in '${ret}'!") |
|
602
|
0 |
32 |
unless $#_ == 1 |
|
608
|
0 |
32 |
if ref $target |
|
609
|
0 |
32 |
if ref $condition |
|
731
|
0 |
0 |
$co->{$_}->need_malloc ? : |
|
732
|
1 |
2 |
$cn ? : |
|
|
1 |
2 |
$which eq 'PRIV' ? : |
|
744
|
0 |
10 |
unless $#_ == 2 |
|
751
|
0 |
10 |
if ref $target |
|
752
|
0 |
10 |
if ref $symbol |
|
833
|
0 |
2 |
if $packname =~ m[/] |
|
837
|
0 |
2 |
defined $callpack ? : |
|
865
|
0 |
0 |
if $#_ > -1 |
|
887
|
0 |
3 |
if (ref $pm) { } |
|
891
|
0 |
0 |
unless defined $opt->{'At'} and $opt->{'At'} =~ /^(Top|Bot|Middle)$/ |
|
907
|
0 |
0 |
if ($cmd =~ /^\s*BOOT\s*$/) { } |
|
972
|
4 |
17 |
if /%\{/ or /%}/ |
|
974
|
10 |
11 |
if /\n/ |
|
986
|
0 |
1 |
if $PDLA::PP::done |
|
988
|
1 |
0 |
$main::DOCUMENTED ? : |
|
990
|
0 |
1 |
if $main::PP_VERBOSE |
|
991
|
0 |
1 |
if nopm() |
|
992
|
0 |
1 |
unless my $fh = 'FileHandle'->new(">$main::PDLAPREF.xs") |
|
1070
|
1 |
0 |
unless (nopm()) |
|
1072
|
0 |
1 |
unless $main::PDLABEGIN =~ /^\s*$/ |
|
1074
|
0 |
1 |
unless $fh = 'FileHandle'->new(">$main::PDLAPREF.pm") |
|
1118
|
0 |
2 |
if $main::PP_VERBOSE |
|
1122
|
0 |
2 |
if ($name =~ /\n/) |
|
1126
|
0 |
0 |
if ($fulldoc =~ s/^(\w+)//) { } |
|
|
0 |
0 |
elsif ($fulldoc =~ /=head2 (\w+)/) { } |
|
1142
|
0 |
0 |
if exists $obj{'Dump'} and $obj{'Dump'} and $main::PP_VERBOSE |
|
1145
|
0 |
1 |
unless exists $obj{'FreeFunc'} |
|
1158
|
1 |
0 |
if $obj{'PdlDoc'} |
|
1162
|
0 |
1 |
if $main::PP_VERBOSE |
|
1170
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
1175
|
0 |
0 |
if ($options and ref $options eq 'HASH' and $options->{'infavor'}) |
|
1186
|
0 |
0 |
if $infavor |
|
1243
|
0 |
0 |
if ($string =~ /^$proto_re+$/) |
|
1382
|
0 |
0 |
unless -f $typemap |
|
1384
|
0 |
0 |
unless -T $typemap |
|
1387
|
0 |
0 |
unless open TYPEMAP, $typemap |
|
1393
|
0 |
0 |
if /^\s*#/ |
|
1395
|
0 |
0 |
if (/^INPUT\s*$/) |
|
1396
|
0 |
0 |
if (/^OUTPUT\s*$/) |
|
1397
|
0 |
0 |
if (/^TYPEMAP\s*$/) |
|
1398
|
0 |
0 |
if ($mode eq 'Typemap') { } |
|
|
0 |
0 |
elsif (/^\s/) { } |
|
|
0 |
0 |
elsif ($mode eq 'Input') { } |
|
1403
|
0 |
0 |
if /^$/ or /^#/ |
|
1404
|
0 |
0 |
unless my($t_type, $kind, $proto) = /^\s*(.*?\S)\s+(\S+)\s*($proto_re*)\s*$/ |
|
1409
|
0 |
0 |
unless $proto |
|
1410
|
0 |
0 |
unless &ValidProtoString($proto) |
|
1430
|
0 |
0 |
unless $foundtm |
|
1438
|
0 |
0 |
unless exists $type_kind{$full_type} |
|
1527
|
1 |
3 |
/^\s*$/ ? : |
|
1534
|
0 |
3 |
if (/^\s*([^=]+)\s*=>\s*(\S+)\s*$/) { } |
|
|
0 |
3 |
elsif (/^\s*pdl\s+\*\s*(\w+)$/) { } |
|
1537
|
0 |
0 |
if $main::PP_VERBOSE |
|
1540
|
0 |
0 |
unless defined $dimobjs->{$dim} |
|
1549
|
0 |
3 |
if ($name =~ /$INVALID_OTHERPARS_RE/) |
|
1615
|
1 |
0 |
$affine_ok ? : |
|
1618
|
0 |
1 |
$$pobjs{$pnames->[$_]}{'FlagPhys'} ? : |
|
1619
|
0 |
1 |
if ($PDLA::PP::Config{'cc'} eq 'cl') |
|
1620
|
0 |
0 |
if $join_flags eq '' |
|
1635
|
2 |
0 |
unless $pobjs->{$_}{'FlagW'} |
|
1636
|
0 |
2 |
if $pobjs->{$_}{'FlagW'} |
|
1645
|
1 |
3 |
$name eq 'copy' ? : |
|
1647
|
0 |
4 |
$name eq 'foo' ? : |
|
1652
|
0 |
4 |
if ($p2child) |
|
1655
|
0 |
0 |
if ($name eq 'redodims') |
|
1722
|
0 |
0 |
if ($glb) { } |
|
1737
|
0 |
1 |
if ($glb) { } |
|
1765
|
0 |
2 |
$nopdlthread ? : |
|
1800
|
4 |
0 |
$#_ > -1 ? : |
|
1804
|
0 |
0 |
if ($callcopy) { } |
|
1866
|
0 |
2 |
if $pmcode |
|
1870
|
0 |
2 |
if $globalnew |
|
1904
|
2 |
0 |
unless $out{$_} or $outca{$_} |
|
1915
|
0 |
2 |
if ($other{$x}) { } |
|
|
0 |
2 |
elsif ($outca{$x}) { } |
|
1933
|
2 |
0 |
if ($nmaxonstack == $ninout) { } |
|
1942
|
0 |
0 |
if ($other{$x}) { } |
|
|
0 |
0 |
elsif ($tmp{$x} or $outca{$x}) { } |
|
1966
|
0 |
2 |
if ($other{$x}) { } |
|
|
0 |
2 |
elsif ($out{$x} or $tmp{$x} or $outca{$x}) { } |
|
1981
|
0 |
2 |
$bitwise ? : |
|
2039
|
0 |
2 |
if $globalnew |
|
2049
|
0 |
2 |
if exists $parobjs->{$x} and exists $parobjs->{$x}{'FlagOut'} |
|
2126
|
0 |
1 |
unless $bvalflag |
|
2128
|
0 |
1 |
if defined $badcode |
|
2161
|
1 |
0 |
unless ($other{$x} or $out{$x} or $tmp{$x} or $outca{$x}) |
|
2162
|
0 |
1 |
if ($add) { } |
|
2175
|
1 |
0 |
if ($add != 0) { } |
|
2178
|
0 |
0 |
if $main::PP_VERBOSE |
|
2181
|
0 |
1 |
if (defined $badflag and $badflag == 0) |
|
2187
|
0 |
0 |
if $main::PP_VERBOSE |
|
2207
|
0 |
1 |
unless $bvalflag |
|
2209
|
0 |
1 |
if (defined $badcode) |
|
2217
|
0 |
0 |
if ($badcode =~ /\$PRIV(bvalflag)/) |
|
2232
|
0 |
1 |
if exists $parobjs->{$x} and exists $parobjs->{$x}{'FlagOut'} |
|
2270
|
2 |
0 |
unless defined $arg |
|
2276
|
0 |
0 |
if (exists $parobjs->{$name}) |
|
2277
|
0 |
0 |
if (exists $parobjs->{$name}{'FlagOut'}) { } |
|
|
0 |
0 |
elsif (not exists $parobjs->{$name}{'FlagTemp'}) { } |
|
2289
|
0 |
0 |
if $#in == 0 |
|
2290
|
0 |
0 |
if $#out == 0 |
|
2292
|
0 |
0 |
if (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $arg eq '') { } |
|
2294
|
0 |
0 |
if ($narg > -1) |
|
2296
|
0 |
0 |
if $narg > 0 |
|
2299
|
0 |
0 |
unless $arg |
|
2305
|
0 |
0 |
unless defined $in |
|
2307
|
0 |
0 |
unless defined $out |
|
2369
|
0 |
0 |
if (defined $bflag and $bflag) |
|
2396
|
0 |
0 |
if (defined $bflag and $bflag) |
|
2413
|
0 |
0 |
if $doc eq '' and not defined $doc and $doc == undef |
|
2414
|
0 |
2 |
if $doc =~ /^\s*internal\s*$/i |
|
2417
|
0 |
2 |
unless $bvalflag |
|
2423
|
0 |
2 |
if scalar(@splitRes = split(/
/, $doc, 0)) <= 1 |
|
2426
|
0 |
2 |
unless $pars |
|
2429
|
0 |
2 |
if $otherpars |
|
2430
|
0 |
2 |
$otherpars ? : |
|
2433
|
2 |
0 |
if (defined $baddoc) |
|
2462
|
0 |
0 |
if ($rev eq '1') { } |
|
2487
|
0 |
2 |
if ($hasp2child) |
|
2489
|
0 |
0 |
if $ignore->{$child} |
|
2492
|
0 |
0 |
unless $parobjs->{$child}{'FlagCreateAlways'} |
|
2494
|
0 |
0 |
if $hasp2child |
|
2499
|
0 |
2 |
if $ignore->{$_} |
|
2504
|
0 |
2 |
if ($po->{'FlagTyped'}) { } |
|
2507
|
0 |
0 |
if $po->{'FlagTplus'} |
|
2512
|
0 |
2 |
if ($po->{'FlagCreateAlways'}) { } |
|
2519
|
0 |
2 |
if $po->{'FlagCreat'} |
|
2545
|
0 |
2 |
if $hasp2child and $#$gentypes != $ntypes |
|
2548
|
0 |
2 |
if $hasp2child |
|
2554
|
0 |
2 |
if $ignore->{$_} or $po->{'FlagTyped'} or $po->{'FlagCreateAlways'} |
|
2559
|
0 |
2 |
if $po->{'FlagCreat'} |
|
2582
|
1 |
1 |
if $opts->{'ToPtrs'} |
|
2593
|
1 |
0 |
if $opts->{'ToPtrs'} |
|
2605
|
2 |
0 |
if $opts->{'ToPtrs'} |
|
2622
|
1 |
0 |
$havethreading ? : |
|
2633
|
1 |
0 |
$havethreading ? : |
|
2640
|
1 |
0 |
$havethreading ? : |
|
2651
|
0 |
1 |
if ($PDLA::PP::Config{'cc'} eq 'cl') |
|
2652
|
0 |
0 |
if $join__parnames eq '' |
|
2653
|
0 |
0 |
if $join__realdims eq '' |
|
2710
|
0 |
1 |
$$pobjs{$pnames->[$_]}{'FlagCreat'} ? : |
|
2773
|
0 |
1 |
if $$pobjs{$pnames->[$_]}{'FlagCreat'} |
|
2791
|
1 |
0 |
unless defined $noPthreadFlag |
|
2795
|
1 |
0 |
$npdls ? : |
|
2804
|
0 |
1 |
if ($$pobjs{$pnames->[$_]}{'FlagCreat'}) { } |
|
2851
|
0 |
0 |
if ($fulldoc =~ /=for sig\n\n Signature: \(([^\n]*)\n/g) |
|
2884
|
0 |
0 |
unless my $sig = extract_signature_from_fulldoc($fulldoc) |
|
2892
|
0 |
0 |
if $switched_to_other_pars and $arg =~ /$pars_re/ |
|
2894
|
0 |
0 |
if ($arg =~ /$pars_re/) { } |
|
2903
|
0 |
0 |
if @pars == 0 |
|
2924
|
0 |
0 |
unless my $sig = extract_signature_from_fulldoc($fulldoc) |
|
2931
|
0 |
0 |
if @otherpars > 0 and $arg =~ /$pars_re/ |
|
2933
|
0 |
0 |
unless ($arg =~ /$pars_re/) |
|
2939
|
0 |
0 |
if @otherpars == 0 |
|
3573
|
0 |
0 |
if $main::PP_VERBOSE |
|
3585
|
0 |
1 |
if $main::PP_VERBOSE |