| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless defined $f |
|
58
|
0 |
0 |
if $PDL::verbose |
|
73
|
0 |
0 |
unless @_ |
|
82
|
2 |
0 |
unless ($PERLDL::long_mod_names and $PERLDL::long_mod_names) |
|
100
|
1 |
0 |
if length $_ > $max_mod_length |
|
108
|
0 |
1 |
if (not $ref) { } |
|
|
0 |
1 |
elsif ($seen{$ref}) { } |
|
110
|
0 |
0 |
defined $m->[2]{'CustomFile'} ? : |
|
124
|
0 |
1 |
length $name > 15 ? : |
|
126
|
0 |
1 |
if (wantarray) { } |
|
166
|
0 |
0 |
unless @_ |
|
173
|
0 |
0 |
unless $#_ > -1 |
|
211
|
0 |
0 |
unless $#_ > -1 |
|
216
|
0 |
0 |
if $topic =~ s/\[(\d*)\]$// |
|
223
|
0 |
0 |
unless (@match) |
|
233
|
0 |
0 |
if ($subfield) |
|
234
|
0 |
0 |
if ($subfield <= @match) { } |
|
249
|
0 |
0 |
if (@match > 1 and not $subfield and $pdl_pod_matchnum == 1) |
|
258
|
0 |
0 |
if (@match > 0 and $num_pdl_pod_matches > 1) |
|
265
|
0 |
0 |
if ($Ref and $Ref =~ /^(Module|Manual|Script): /) { } |
|
274
|
0 |
0 |
if -e $dbf |
|
276
|
0 |
0 |
unless ($absfile) |
|
282
|
0 |
0 |
if (defined $m->[2]{'CustomFile'}) { } |
|
323
|
0 |
0 |
if ($exact) { } |
|
325
|
0 |
0 |
unless $topic =~ /\.pdl$/ |
|
339
|
0 |
0 |
unless @main::PDLLIB |
|
340
|
0 |
0 |
unless @main::PDLLIB_EXPANDED |
|
344
|
0 |
0 |
if ($exact) { } |
|
346
|
0 |
0 |
if -e $file |
|
351
|
0 |
0 |
unless opendir FOO, $dir |
|
397
|
0 |
0 |
unless $#_ > -1 |
|
405
|
0 |
0 |
unless my(@match) = search_docs("m/^(PDL::)?$func\$|::$func\$/", ["Name"]) |
|
413
|
0 |
0 |
unless grep defined($_), @$hash{"Example", "Sig", "Usage"} |
|
420
|
0 |
0 |
unless 1 == $count-- |
|
447
|
0 |
0 |
unless $#_ > -1 |
|
451
|
0 |
0 |
if (@match) { } |
|
454
|
0 |
0 |
unless defined $hash->{'Sig'} |
|
455
|
0 |
0 |
if defined $hash->{'Sig'} |
|
456
|
0 |
0 |
unless 1 == $count-- |
|
467
|
0 |
0 |
if (/^(\s*)/) |
|
468
|
0 |
0 |
if length $1 < $minspc |
|
471
|
0 |
0 |
if $n > 0 |
|
494
|
0 |
0 |
if (@_ > 1) { } |
|
512
|
0 |
0 |
unless (defined $x) |
|
517
|
0 |
0 |
unless (ref $x) |
|
525
|
0 |
0 |
if (ref $x eq "ARRAY") |
|
532
|
0 |
0 |
if $el == $PDL::Doc::Perldl::max_arraylen |
|
534
|
0 |
0 |
if $x->$#* > $PDL::Doc::Perldl::max_arraylen |
|
540
|
0 |
0 |
if (ref $x eq "HASH") |
|
553
|
0 |
0 |
if (ref $x eq "CODE") |
|
558
|
0 |
0 |
if (ref $x eq "SCALAR" or ref $x eq "REF") |
|
563
|
0 |
0 |
if (UNIVERSAL::can($x, 'px')) { } |
|
567
|
0 |
0 |
UNIVERSAL::isa($x, 'PDL') && $x->nelem < 5 && $x->ndims < 2 ? : |
|
605
|
0 |
0 |
if (@_) { } |
|
608
|
0 |
0 |
if (builtin::blessed($topic) and $topic->can('px')) { } |
|
612
|
0 |
0 |
if $topic =~ /^\s*help\s*$/i |
|
613
|
0 |
0 |
if ($topic =~ /^\s*vars\s*$/i) { } |