| line |
!l |
l&&!r |
l&&r |
condition |
|
306
|
0 |
0 |
0 |
$mode == $ndims and not $have_badvalue |
|
|
0 |
0 |
0 |
$mode == $ndims and $have_badvalue |
|
|
0 |
0 |
0 |
$mode == $ndims and $have_badvalue and $numtokens > 0 |
|
327
|
28 |
0 |
0 |
$mode == $ndims and $numtokens == 0 |
|
334
|
8 |
0 |
28 |
$mode == $ndims and $numtokens == 0 |
|
445
|
0 |
0 |
0 |
$isname and $writeflexhdr |
|
518
|
0 |
0 |
23 |
ref $h->[0]{'Dims'} and @{$h->[0]{'Dims'};} |
|
|
0 |
21 |
2 |
ref $h->[0]{'Dims'} and @{$h->[0]{'Dims'};} and not defined $h->[0]{'Dims'}[-1] |
|
|
21 |
1 |
1 |
ref $h->[0]{'Dims'} and @{$h->[0]{'Dims'};} and not defined $h->[0]{'Dims'}[-1] and @$h > 1 |
|
550
|
0 |
24 |
1 |
@dims and not defined $dims[-1] |
|
568
|
25 |
0 |
0 |
$newfile and $f77mode |
|
596
|
25 |
0 |
0 |
$f77mode and $chunk->at == $chunkread |
|
654
|
3 |
1 |
0 |
not -e $name and -e $name . '.gz' || -e $name . '.Z' |
|
706
|
4 |
0 |
0 |
$newfile and $f77mode |
|
720
|
4 |
0 |
0 |
$f77mode and $chunk->at == $chunkread |
|
799
|
0 |
19 |
0 |
$isname and $writeflexhdr |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
299
|
24 |
28 |
84 |
/^#/ or /^\s*$/ |
|
308
|
0 |
0 |
24 |
$token eq "f77" or $token eq "swap" |
|
350
|
0 |
0 |
28 |
$ndims < 0 or $mode != $ndims |
|
418
|
0 |
0 |
1 |
@_ < 2 or @_ > 3 |
|
|
0 |
0 |
1 |
@_ < 2 or @_ > 3 or not UNIVERSAL::isa($pdl, "PDL") |
|
431
|
0 |
1 |
0 |
$hdr ||= _read_flexhdr("$name.hdr") |
|
432
|
1 |
0 |
0 |
$hdr->[-1] || barf('glueflex: need valid header-hash') |
|
514
|
3 |
20 |
0 |
$h ||= _read_flexhdr("$name.hdr") |
|
569
|
0 |
0 |
0 |
$zipt or $swapbyte |
|
654
|
0 |
0 |
4 |
$name =~ s/\.gz$// or $name =~ s/\.Z$// |
|
|
0 |
0 |
1 |
-e $name . '.gz' || -e $name . '.Z' |
|
|
0 |
0 |
4 |
$name =~ s/\.gz$// or $name =~ s/\.Z$// or not -e $name and -e $name . '.gz' || -e $name . '.Z' |
|
681
|
1 |
0 |
3 |
$opts{'Creat'} || $opts{'Trunc'} |
|
830
|
0 |
0 |
21 |
@_ != 2 or not ref $_[1] |