Branch Coverage

blib/lib/OLE/Storage_Lite.pm
Criterion Covered Total %
branch 3 260 1.1


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