line |
true |
false |
branch |
25
|
0 |
0 |
if ($iType == OLE::Storage_Lite::PpsType_File()) { } |
|
0 |
0 |
elsif ($iType == OLE::Storage_Lite::PpsType_Dir()) { } |
|
0 |
0 |
elsif ($iType == OLE::Storage_Lite::PpsType_Root()) { } |
75
|
0 |
0 |
unless defined $oSelf->{'Data'} |
77
|
0 |
0 |
$oSelf->{'_PPS_FILE'} ? : |
90
|
0 |
0 |
if ($oPps->{'Type'} == OLE::Storage_Lite::PpsType_File()) |
91
|
0 |
0 |
if $oPps->{'Size'} <= 0 |
92
|
0 |
0 |
if ($oPps->{'Size'} < $rhInfo->{'_SMALL_SIZE'}) |
94
|
0 |
0 |
$oPps->{'Size'} % $rhInfo->{'_SMALL_BLOCK_SIZE'} ? : |
103
|
0 |
0 |
if ($oPps->{'_PPS_FILE'}) { } |
115
|
0 |
0 |
if $oPps->{'Size'} % $rhInfo->{'_SMALL_BLOCK_SIZE'} |
123
|
0 |
0 |
if $iSmBlk % $iSbCnt |
155
|
0 |
0 |
defined $oThis->{'StartBlock'} ? : |
|
0 |
0 |
defined $oThis->{'Size'} ? : |
203
|
0 |
0 |
unless $rhInfo |
206
|
0 |
0 |
$rhInfo->{'_BIG_BLOCK_SIZE'} ? : |
209
|
0 |
0 |
$rhInfo->{'_SMALL_BLOCK_SIZE'} ? : |
217
|
0 |
0 |
if (ref $sFile eq 'SCALAR') { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($sFile, 'IO::Handle')) { } |
|
0 |
0 |
elsif (not ref $sFile) { } |
233
|
0 |
0 |
if ($sFile ne '-') { } |
235
|
0 |
0 |
unless $oIo->open(">$sFile") |
241
|
0 |
0 |
unless $oIo->fdopen(fileno STDOUT, 'w') |
258
|
0 |
0 |
if ($bNoAs) { } |
284
|
0 |
0 |
if $closeFile |
298
|
0 |
0 |
if ($oPps->{'Type'} == OLE::Storage_Lite::PpsType_File()) |
300
|
0 |
0 |
if ($oPps->{'Size'} < $rhInfo->{'_SMALL_SIZE'}) { } |
302
|
0 |
0 |
$oPps->{'Size'} % $rhInfo->{'_SMALL_BLOCK_SIZE'} ? : |
307
|
0 |
0 |
$oPps->{'Size'} % $rhInfo->{'_BIG_BLOCK_SIZE'} ? : |
313
|
0 |
0 |
$iSBcnt % $iSlCnt ? : |
315
|
0 |
0 |
$iSmallLen % $rhInfo->{'_BIG_BLOCK_SIZE'} ? : |
318
|
0 |
0 |
$iCnt % $iBdCnt ? : |
328
|
0 |
0 |
$iWk > int $iWk ? : |
344
|
0 |
0 |
$iAllW % $iBlCnt ? : |
345
|
0 |
0 |
($iAllW + $iBdCntW) % $iBlCnt ? : |
348
|
0 |
0 |
if ($iBdCnt > $i1stBdL) |
353
|
0 |
0 |
if ($iAll > $i1stBdMax) |
355
|
0 |
0 |
$iBBleftover % $iBlCnt ? : |
356
|
0 |
0 |
$iBdCnt % $iBlCnt ? : |
358
|
0 |
0 |
$iBBleftover % $iBlCnt ? : |
|
0 |
0 |
if $iBdCnt == int($iBBleftover / $iBlCnt) + ($iBBleftover % $iBlCnt ? 1 : 0) |
365
|
0 |
0 |
$iSBDcnt ? : |
383
|
0 |
0 |
if ($iAll <= $i1stBdMax) { } |
400
|
0 |
0 |
if $i < $i1stBdL |
412
|
0 |
0 |
if ($oPps->{'Type'} != OLE::Storage_Lite::PpsType_Dir()) |
415
|
0 |
0 |
if ($oPps->{'Size'} >= $rhInfo->{'_SMALL_SIZE'} or $oPps->{'Type'} == OLE::Storage_Lite::PpsType_Root() and defined $oPps->{'Data'}) |
419
|
0 |
0 |
if ($oPps->{'_PPS_FILE'}) { } |
435
|
0 |
0 |
if $oPps->{'Size'} % $rhInfo->{'_BIG_BLOCK_SIZE'} |
440
|
0 |
0 |
$oPps->{'Size'} % $rhInfo->{'_BIG_BLOCK_SIZE'} ? : |
460
|
0 |
0 |
if $iCnt % $iBCnt |
462
|
0 |
0 |
$iCnt % $iBCnt ? : |
473
|
0 |
0 |
if ($#$aThis < 0) { } |
|
0 |
0 |
elsif ($#$aThis == 0) { } |
492
|
0 |
0 |
$#$aThis > 1 ? : |
515
|
0 |
0 |
if ($#$aThis < 0) { } |
|
0 |
0 |
elsif ($#$aThis == 0) { } |
554
|
0 |
0 |
if ($#$aThis < 0) { } |
|
0 |
0 |
elsif ($#$aThis == 0) { } |
593
|
0 |
0 |
if ($#$aThis < 0) { } |
|
0 |
0 |
elsif ($#$aThis == 0) { } |
639
|
0 |
0 |
$iAllW % $iBbCnt ? : |
644
|
0 |
0 |
if ($iAll > $i1stBdMax) |
647
|
0 |
0 |
$iBBleftover % $iBlCnt ? : |
648
|
0 |
0 |
$iBdCnt % $iBlCnt ? : |
650
|
0 |
0 |
$iBBleftover % $iBlCnt ? : |
|
0 |
0 |
if $iBdCnt == int($iBBleftover / $iBlCnt) + ($iBBleftover % $iBlCnt ? 1 : 0) |
659
|
0 |
0 |
if ($iSbdSize > 0) |
685
|
0 |
0 |
if ($iAllW + $iBdCnt) % $iBbCnt |
688
|
0 |
0 |
if ($iBdCnt > $i1stBdL) |
692
|
0 |
0 |
if ($iN >= $iBbCnt - 1) |
699
|
0 |
0 |
if ($iBdCnt - $i1stBdL) % ($iBbCnt - 1) |
758
|
0 |
0 |
if (not defined $sFile or $sFile eq '') { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($sFile, 'IO::Handle')) { } |
|
0 |
0 |
elsif (not ref $sFile) { } |
767
|
0 |
0 |
unless $oSelf->{'_PPS_FILE'} |
768
|
0 |
0 |
unless $oSelf->{'_PPS_FILE'}->open("$sFile", 'r+') |
773
|
0 |
0 |
if ($oSelf->{'_PPS_FILE'}) |
785
|
0 |
0 |
if ($oSelf->{'_PPS_FILE'}) { } |
866
|
0 |
0 |
unless $rhInfo |
880
|
0 |
0 |
unless $rhInfo |
894
|
0 |
0 |
unless $rhInfo |
907
|
0 |
0 |
if (ref $sFile eq 'SCALAR') { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($sFile, 'IO::Handle')) { } |
|
0 |
0 |
elsif (not ref $sFile) { } |
920
|
0 |
0 |
unless $oIo->open("<$sFile") |
936
|
0 |
0 |
if (defined $raDone) { } |
937
|
0 |
0 |
if grep {$_ == $iNo;} @$raDone |
948
|
0 |
0 |
if ($oPps->{'DirPps'} != 4294967295) { } |
958
|
0 |
0 |
if $oPps->{'PrevPps'} != 4294967295 |
961
|
0 |
0 |
if $oPps->{'NextPps'} != 4294967295 |
972
|
0 |
0 |
if (defined $raDone) { } |
973
|
0 |
0 |
if grep {$_ == $iNo;} @$raDone |
981
|
0 |
0 |
if ($iCase and grep /^\Q$oPps->{'Name'}\E$/i, @$raName or grep(($_ eq $oPps->{'Name'}), @$raName)) { } |
983
|
0 |
0 |
if $bData |
991
|
0 |
0 |
if $oPps->{'DirPps'} != 4294967295 |
993
|
0 |
0 |
if $oPps->{'PrevPps'} != 4294967295 |
995
|
0 |
0 |
if $oPps->{'NextPps'} != 4294967295 |
1010
|
0 |
0 |
unless $sWk eq "\320\317\cQ\340\241\261\cZ\341" |
1013
|
0 |
0 |
unless defined $iWk |
1017
|
0 |
0 |
unless defined $iWk |
1021
|
0 |
0 |
unless defined $iWk |
1025
|
0 |
0 |
unless defined $iWk |
1033
|
0 |
0 |
unless defined $iWk |
1037
|
0 |
0 |
unless defined $iWk |
1041
|
0 |
0 |
unless defined $iWk |
1045
|
0 |
0 |
unless defined $iWk |
1061
|
0 |
0 |
unless $FILE |
1062
|
0 |
0 |
if $FILE->seek($iPos, 0) == 0 |
1063
|
0 |
0 |
if $FILE->read($sWk, $iLen) != $iLen |
1080
|
0 |
0 |
$iBdbCnt < $i1stCnt ? : |
1088
|
0 |
0 |
$iBdbCnt < $iBdlCnt ? : |
1107
|
0 |
0 |
if ($aWk[$i] != $iBlkNo + 1) |
1129
|
0 |
0 |
unless defined $iBlock |
1133
|
0 |
0 |
unless $sWk |
1135
|
0 |
0 |
$iNmSize > 2 ? : |
1141
|
0 |
0 |
$iType == PpsType_Root() || $iType == PpsType_Dir() ? : |
|
0 |
0 |
$iType == PpsType_Root() || $iType == PpsType_Dir() ? : |
1148
|
0 |
0 |
if ($bData) { } |
1177
|
0 |
0 |
unless &_isNormalBlock($iNext) |
1187
|
0 |
0 |
if ($iType == PpsType_File()) { } |
|
0 |
0 |
elsif ($iType == PpsType_Root()) { } |
|
0 |
0 |
elsif ($iType == PpsType_Dir()) { } |
1188
|
0 |
0 |
if ($iSize < DataSizeSmall()) { } |
1210
|
0 |
0 |
unless &_isNormalBlock($iBlock) |
1223
|
0 |
0 |
if $iRest < $iGetSize |
1237
|
0 |
0 |
defined $iRes ? : |
1246
|
0 |
0 |
$iBlock < 4294967292 ? : |
1261
|
0 |
0 |
$iRest >= $rhInfo->{'_SMALL_BLOCK_SIZE'} ? : |
1364
|
0 |
99 |
unless $localtime |
1368
|
39 |
60 |
unless $localtimecopy[5] > 99 |