| line |
true |
false |
branch |
|
205
|
0 |
8 |
unless open my $h, "<", $hname |
|
209
|
0 |
8 |
unless (defined $str) |
|
211
|
0 |
8 |
if ($#dims != $ndims - 1) |
|
224
|
0 |
7 |
unless open my $h, ">", $hname |
|
228
|
2 |
5 |
$opts->{'Dims'} ? : |
|
260
|
0 |
5 |
unless open my $d, ">", $name |
|
296
|
0 |
5 |
unless open my $d, "<", $name |
|
329
|
0 |
1 |
if @_ < 2 or @_ > 3 or not UNIVERSAL::isa($pdl, "PDL") or ref $name |
|
330
|
0 |
1 |
unless -f $name |
|
334
|
0 |
1 |
if $pdl->type != "PDL::Type"->new($hdr->{'Type'}) |
|
335
|
1 |
0 |
ref $hdr->{'Dims'} ? : |
|
336
|
0 |
1 |
if @dims < 2 |
|
338
|
0 |
1 |
unless PDL::all($pdl->shape == pdl(@ldims)) |
|
340
|
0 |
1 |
unless open my $d, ">>", $name |
|
396
|
1 |
2 |
if ($opts->{'Dims'}) { } |
|
415
|
0 |
3 |
$opts->{'ReadOnly'} ? : |
|
|
1 |
2 |
$opts->{'Creat'} ? : |
|
|
1 |
2 |
$opts->{'Creat'} || $opts->{'Trunc'} ? : |
|
419
|
1 |
2 |
if $opts->{'Creat'} |