| line |
true |
false |
branch |
|
61
|
0 |
0 |
if defined $pf->{'file'}
|
|
67
|
0 |
0 |
if $obj->{'temp'}
|
|
80
|
0 |
0 |
if $pf->opened
|
|
83
|
0 |
0 |
unless defined($pf->{'file'} = $file = $file // $pf->{'file'})
|
|
84
|
0 |
0 |
if -f "$pf->{'file'}.hdr" and not $pf->loadHeader
|
|
86
|
0 |
0 |
unless $pf->{'fh'} = fcopen($file, $flags, $pf->{'perms'})
|
|
118
|
0 |
0 |
if ($_[1] > $_[0]->size) { }
|
|
120
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, $_[1] * $_[0]{'reclen'} - 1, 0
|
|
127
|
0 |
0 |
unless CORE::truncate $_[0]{'fh'}, $_[1] * $_[0]{'reclen'}
|
|
136
|
0 |
0 |
if (defined $pf->{'fh'}) { }
|
|
|
0 |
0 |
elsif (defined $pf->{'file'}) { }
|
|
140
|
0 |
0 |
unless my $fh = fcopen($pf->{'file'}, 577)
|
|
150
|
0 |
0 |
unless $pf->opened and fcwrite($pf->{'flags'})
|
|
151
|
0 |
0 |
unless $pf->saveHeader
|
|
158
|
0 |
0 |
unless (caller 1)[3] =~ /::close$/
|
|
174
|
0 |
0 |
if (not defined $pf->{'reclen'} and defined $pf->{'filter_store'})
|
|
180
|
0 |
0 |
if utf8::is_utf8($_)
|
|
193
|
0 |
0 |
unless $_[0]{'fh'}
|
|
249
|
0 |
0 |
unless CORE::read($_[0]{'fh'}, $_, $_[0]{'reclen'}) == $_[0]{'reclen'}
|
|
250
|
0 |
0 |
if $_[0]{'filter_fetch'}
|
|
257
|
0 |
0 |
unless CORE::read($_[0]{'fh'}, ${$_[1];}, $_[0]{'reclen'}) == $_[0]{'reclen'}
|
|
265
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, $_[1] * $_[0]{'reclen'}, 0
|
|
266
|
0 |
0 |
unless CORE::read($_[0]{'fh'}, $_, $_[0]{'reclen'}) == $_[0]{'reclen'}
|
|
267
|
0 |
0 |
if $_[0]{'filter_fetch'}
|
|
274
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, $_[1] * $_[0]{'reclen'}, 0
|
|
275
|
0 |
0 |
unless CORE::read($_[0]{'fh'}, ${$_[2];}, $_[0]{'reclen'}) == $_[0]{'reclen'}
|
|
292
|
0 |
0 |
if $_[0]{'filter_store'}
|
|
293
|
0 |
0 |
unless $_[0]{'fh'}->print($_)
|
|
300
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, $_[1] * $_[0]{'reclen'}, 0
|
|
302
|
0 |
0 |
if $_[0]{'filter_store'}
|
|
303
|
0 |
0 |
unless $_[0]{'fh'}->print($_)
|
|
310
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, 0, 2
|
|
312
|
0 |
0 |
if $_[0]{'filter_store'}
|
|
313
|
0 |
0 |
unless $_[0]{'fh'}->print($_)
|
|
326
|
0 |
0 |
if exists $opts{'packas'}
|
|
332
|
0 |
0 |
unless CORE::read($fh, $_, $reclen) == $reclen
|
|
334
|
0 |
0 |
if $filter_fetch
|
|
347
|
0 |
0 |
if exists $opts{'packas'}
|
|
350
|
0 |
0 |
unless $pf->setsize(scalar @$data)
|
|
355
|
0 |
0 |
if $filter_store
|
|
356
|
0 |
0 |
unless $fh->print($_)
|
|
377
|
0 |
0 |
if (($opts{'type'} // 'auto') eq 'auto')
|
|
383
|
0 |
0 |
if 'PDL'->can($opts{'type'})
|
|
385
|
0 |
0 |
unless UNIVERSAL::isa($opts{'type'}, 'PDL::Type')
|
|
389
|
0 |
0 |
if (($opts{'swap'} // 'auto') eq 'auto') { }
|
|
|
0 |
0 |
elsif ($opts{'swap'}) { }
|
|
395
|
0 |
0 |
if ($pdl->sclr == $val) { }
|
|
|
0 |
0 |
elsif (defined(my $swapsub = $pdl->can("bswap$packsize"))) { }
|
|
400
|
0 |
0 |
if ($pdl->sclr == $val)
|
|
409
|
0 |
0 |
if ($opts{'swap'} // 'auto') eq 'auto'
|
|
414
|
0 |
0 |
unless DiaColloDB::Utils::writePdlHeader($hfile, $opts{'type'}, 1, $pf->size)
|
|
420
|
0 |
0 |
if ($opts{'mmap'}) { }
|
|
425
|
0 |
0 |
$opts{'mmap'} ? :
|
|
|
0 |
0 |
unless defined $pdl
|
|
426
|
0 |
0 |
if UNIVERSAL::isa($opts{'swap'}, 'CODE')
|
|
427
|
0 |
0 |
unless not -e $hfile or unlink $hfile
|
|
460
|
0 |
0 |
if ($keymid < $key) { }
|
|
467
|
0 |
0 |
if ($ilo == $ihi)
|
|
471
|
0 |
0 |
if $keymid == $key
|
|
486
|
0 |
0 |
if ref $obj and defined $obj->{'file'}
|
|
519
|
0 |
0 |
unless $pf->opened
|
|
527
|
0 |
0 |
$key2s ? :
|
|
|
0 |
0 |
$keys ? :
|
|
|
0 |
0 |
UNIVERSAL::isa($val, 'ARRAY') ? :
|
|
548
|
0 |
0 |
unless $pf->opened
|
|
555
|
0 |
0 |
if ($gaps) { }
|
|
559
|
0 |
0 |
if /^$/ or /^%%/
|
|
569
|
0 |
0 |
if /^$/ or /^%%/
|
|
570
|
0 |
0 |
$keys ? :
|
|
602
|
0 |
0 |
unless $_[0]{'fh'}
|
|
605
|
0 |
0 |
unless CORE::seek $_[0]{'fh'}, 0, 2
|