Branch Coverage

blib/lib/Spreadsheet/XLSX/Utility2007.pm
Criterion Covered Total %
branch 156 370 42.1


line true false branch
31 0 1782 if ($sFmt =~ /^\[([<>=][^\]]+)\](.*)$/)
43 0 4964 if ($iDblQ or $iQ)
45 0 0 if $sWk eq "\""
50 1 4963 if ($sWk eq ';') { }
0 4963 elsif ($sWk eq '"') { }
0 4963 elsif ($sWk eq '!') { }
0 4963 elsif ($sWk eq '\\') { }
0 4963 elsif ($sWk eq '(') { }
0 4963 elsif ($sWk eq ')') { }
70 1 1781 if (scalar @sFmtWk > 1) { }
71 0 1 if ($sCond) { }
72 0 0 eval qq["$iData" $sCond] ? :
74 1 0 $iData =~ /$sNUMEXP/ ? :
77 1 0 if (scalar @sFmtWk == 2) { }
0 0 elsif (scalar @sFmtWk == 3) { }
78 1 0 $iWk >= 0 ? :
80 0 0 $iWk < 0 ? :
0 0 $iWk > 0 ? :
82 0 0 if ($iData =~ /$sNUMEXP/) { }
83 0 0 $iWk < 0 ? :
0 0 $iWk > 0 ? :
93 0 1782 if ($sFmtObj =~ /^(\[[^hm\[\]]*\])/)
123 842 3472 unless ($sWk =~ /[#0\+\-\.\?eE\,\%]/)
124 0 842 if ($iFflg != -1)
130 0 4314 if ($sWk eq '"') { }
0 4314 elsif ($sWk eq '!') { }
0 4314 elsif ($sWk eq '\\') { }
131 0 0 $iDblQ ? :
139 0 0 if ($iQ == 1) { }
149 0 4314 if (defined $iDblQ and $iDblQ or defined $iQ and $iQ) { }
3470 844 elsif ($sWk =~ /[#0\+\.\?eE\,\%]/ or $iFmtMode != 2 and $sWk eq '-' || $sWk eq '(' || $sWk eq ')') { }
5 839 elsif ($sWk =~ /[ymdhsapg]/) { }
0 839 elsif (substr($sFmtObj, $i, 3) eq '[h]') { }
0 839 elsif (substr($sFmtObj, $i, 4) eq '[mm]') { }
836 3 elsif ($sWk eq '@') { }
0 3 elsif ($sWk eq '*') { }
151 0 0 if ($iFmtMode != 2 and substr($sFmtObj, $i, 2) eq "\201\242" || substr($sFmtObj, $i, 2) eq "\201\243" || substr($sFmtObj, $i, 2) eq "\242\244" || substr($sFmtObj, $i, 2) eq "\242\245") { }
170 944 2526 unless $iFmtMode
171 2752 718 if (substr($sFmtObj, $i, 1) =~ /[#0]/) { }
0 718 elsif (substr($sFmtObj, $i, 1) eq '?') { }
0 718 elsif (substr($sFmtObj, $i, 3) =~ /^[eE][\+\-][0#]$/) { }
172 80 2672 if (substr($sFmtObj, $i) =~ /^([#0]+)([\.]?)([0#]*)([eE])([\+\-])([0#]+)/) { }
176 1501 1171 if ($iFflg == -1)
182 0 0 if ($iFflg != -1)
187 0 0 if (substr($sFmtObj, $i, 1) eq '/') { }
0 0 elsif (substr($sFmtObj, $i, 1) eq '?') { }
192 0 0 if ($iBunFlg and substr($sFmtObj, $i, 1) =~ /[0-9]/) { }
204 0 0 if (substr($sFmtObj, $i) =~ /([eE])([\+\-])([0#]+)/)
210 638 80 if ($iFflg != -1)
214 80 638 if (substr($sFmtObj, $i, 1) =~ /[\+\-]/) { }
637 1 elsif (substr($sFmtObj, $i, 1) eq '.') { }
0 1 elsif (substr($sFmtObj, $i, 1) eq ',') { }
1 0 elsif (substr($sFmtObj, $i, 1) eq '%') { }
0 0 elsif (substr($sFmtObj, $i, 1) eq '(' or substr($sFmtObj, $i, 1) eq ')') { }
232 2 3 unless $iFmtMode
233 0 5 if (substr($sFmtObj, $i, 5) =~ m[am/pm]i) { }
0 5 elsif (substr($sFmtObj, $i, 3) =~ m[a/p]i) { }
0 5 elsif (substr($sFmtObj, $i, 5) eq 'mmmmm') { }
1 4 elsif (substr($sFmtObj, $i, 4) eq 'mmmm' or substr($sFmtObj, $i, 4) eq 'dddd' or substr($sFmtObj, $i, 4) eq 'yyyy' or substr($sFmtObj, $i, 4) eq 'ggge') { }
0 4 elsif (substr($sFmtObj, $i, 3) eq 'mmm' or substr($sFmtObj, $i, 3) eq 'yyy') { }
3 1 elsif (substr($sFmtObj, $i, 2) eq 'yy' or substr($sFmtObj, $i, 2) eq 'mm' or substr($sFmtObj, $i, 2) eq 'dd' or substr($sFmtObj, $i, 2) eq 'hh' or substr($sFmtObj, $i, 2) eq 'ss' or substr($sFmtObj, $i, 2) eq 'ge') { }
1 0 elsif (substr($sFmtObj, $i, 1) eq 'm' or substr($sFmtObj, $i, 1) eq 'd' or substr($sFmtObj, $i, 1) eq 'h' or substr($sFmtObj, $i, 1) eq 's') { }
260 1 2 if (substr($sFmtObj, $i, 2) eq 'mm' and $#aRep >= 0 and $aRep[$#aRep][0] eq 'h' || $aRep[$#aRep][0] eq 'hh') { }
267 0 3 if (substr($sFmtObj, $i, 2) eq "ss" and $#aRep > 0)
268 0 0 if ($aRep[$#aRep - 1][0] eq "m" or $aRep[$#aRep - 1][0] eq "mm")
278 0 1 if (substr($sFmtObj, $i, 1) eq 'm' and $#aRep >= 0 and $aRep[$#aRep][0] eq 'h' || $aRep[$#aRep][0] eq 'hh') { }
285 0 1 if (substr($sFmtObj, $i, 1) eq "s" and $#aRep > 0)
286 0 0 if ($aRep[$#aRep - 1][0] eq "m" or $aRep[$#aRep - 1][0] eq "mm")
307 0 4314 if $i == $iSt
312 863 919 if ($iFflg != -1)
318 836 946 if defined $sType and $sType eq "Text"
319 2 1780 if ($iFmtMode == 2 and $iData =~ /$sNUMEXP/) { }
944 836 elsif ($iFmtMode == 1 and $iData =~ /$sNUMEXP/) { }
332 1 4 if (scalar @$rItem >= 4) { }
1 3 elsif ($rItem->[0] eq 'yyyy') { }
0 3 elsif ($rItem->[0] eq 'yy') { }
0 3 elsif ($rItem->[0] eq 'mmmmm') { }
0 3 elsif ($rItem->[0] eq 'mmmm') { }
0 3 elsif ($rItem->[0] eq 'mmm') { }
1 2 elsif ($rItem->[0] eq 'mm') { }
0 2 elsif ($rItem->[0] eq 'm') { }
0 2 elsif ($rItem->[0] eq 'dddd') { }
0 2 elsif ($rItem->[0] eq 'ddd') { }
1 1 elsif ($rItem->[0] eq 'dd') { }
0 1 elsif ($rItem->[0] eq 'd') { }
0 1 elsif ($rItem->[0] eq 'hh') { }
1 0 elsif ($rItem->[0] eq 'h') { }
0 0 elsif ($rItem->[0] eq 'ss') { }
0 0 elsif ($rItem->[0] eq 'S') { }
0 0 elsif ($rItem->[0] eq 'am/pm') { }
0 0 elsif ($rItem->[0] eq 'a/p') { }
0 0 elsif ($rItem->[0] eq '.') { }
0 0 elsif ($rItem->[0] =~ /^0+$/) { }
0 0 elsif ($rItem->[0] eq '[h]') { }
0 0 elsif ($rItem->[0] eq '[mm]') { }
0 0 elsif ($rItem->[0] eq 'ge') { }
0 0 elsif ($rItem->[0] eq 'ggge') { }
0 0 elsif ($rItem->[0] eq '@') { }
335 1 0 if ($rItem->[0] eq 'mm') { }
375 0 0 if ($iAm) { }
381 0 1 if ($iAm) { }
397 0 0 $aTime[4] > 12 ? :
399 0 0 $aTime[4] > 12 ? :
426 944 0 if ($#aRep >= 0)
442 717 3394 if ($sItem eq '.') { }
80 3314 elsif ($sItem eq 'E' or $sItem eq 'e') { }
3154 160 elsif ($sItem eq '0') { }
0 160 elsif ($sItem eq '#') { }
0 160 elsif ($sItem eq '?') { }
449 2130 1024 if $iP
454 0 0 if $iP
459 0 0 if $iP
462 1 943 if $iPer
463 80 864 $iFugouFlg ? :
464 0 944 if ($iBunFlg) { }
467 717 227 if ($iP) { }
468 717 0 defined $iAftP ? :
473 0 944 if $iCmmCnt > 0
480 80 2218 if ($rItem->[0] =~ /([#0]*)([\.]?)([0#]*)([eE])([\+\-])([0#]+)/) { }
0 2218 elsif ($rItem->[0] =~ m[/]) { }
637 1581 elsif ($rItem->[0] eq '.') { }
80 1501 elsif ($rItem->[0] eq '+') { }
0 1501 elsif ($rItem->[0] eq '-') { }
0 1501 elsif ($rItem->[0] eq '@') { }
0 1501 elsif ($rItem->[0] eq '*') { }
0 1501 elsif ($rItem->[0] eq "\242\244" or $rItem->[0] eq "\242\245" or $rItem->[0] eq "\201\242" or $rItem->[0] eq "\201\243") { }
0 1501 elsif ($rItem->[0] eq '(' or $rItem->[0] eq ')') { }
490 0 80 $iData == 0 ? :
0 80 $iData > 0 ? :
493 0 0 $iData == 0 ? :
0 0 $iData > 0 ? :
507 1501 0 if ($iLen > 0) { }
508 784 717 if ($iIt <= 0) { }
513 0 717 if ($iPPos >= 0) { }
517 0 0 $iLen <= $iReal ? :
519 80 637 $iLen <= $iReal ? :
530 80 864 $iLen > 0 ? :
538 836 0 if ($rItem->[0] eq '@') { }
545 0 836 unless $iAtMk
547 0 1782 wantarray ? :
556 0 0 if ($sNum =~ /^([^\d]*)(\d\d\d\d+)(\.*.*)$/) { }
577 0 0 if ($iFlg) { }
579 0 0 if $iShou == 0
588 0 0 if ($sFmt =~ m[/(\d+)$]) { }
602 0 0 if ($iCmp < $iSWk)
605 0 0 if $iSWk == 0
620 0 80 if $iKeta <= 0
623 0 80 $iData == 0 ? :
624 80 0 $iLog10 - int($iLog10 / $iKeta) < 0 ? :
636 0 0 if $iYear == 1900
637 0 0 $iYear % 4 == 0 && ($iYear % 100 || $iYear % 400 == 0) ? :
657 0 0 if defined $iMSec
663 0 0 if ($flg1904) { }
674 0 0 LeapYear($iY) ? :
677 0 0 if ($iM == 1 or $iM == 3 or $iM == 5 or $iM == 7 or $iM == 8 or $iM == 10 or $iM == 12) { }
0 0 elsif ($iM == 4 or $iM == 6 or $iM == 9 or $iM == 11) { }
0 0 elsif ($iM == 2) { }
688 0 0 LeapYear($iYear) ? :
707 0 2 if ($flg1904) { }
720 28 87 $iYear % 4 == 0 && ($iYear % 100 || $iYear % 400 == 0) ? :
726 7 5 if ($iMon == 1 or $iMon == 3 or $iMon == 5 or $iMon == 7 or $iMon == 8 or $iMon == 10 or $iMon == 12) { }
4 1 elsif ($iMon == 4 or $iMon == 6 or $iMon == 9 or $iMon == 11) { }
1 0 elsif ($iMon == 2) { }
737 0 1 $iYear % 4 == 0 ? :
739 1 11 if $iDt <= $iMD
773 0 0 if $incr
822 0 0 if ($1 and $2)
825 0 0 if ($ret[0] < 0)
849 0 0 if ($2)
857 0 0 unless ($1 and $2)
864 0 0 unless (@start)
868 0 0 unless (@end)
873 0 0 if ($start[1] > $end[1])
879 0 0 if ($start[0] > $end[0])
896 0 0 if ($start[1] < $oWkS->{'MinCol'})
900 0 0 if ($end[1] > $oWkS->{'MaxCol'})
904 0 0 if ($start[0] < $oWkS->{'MinRow'})
908 0 0 if ($end[0] > $oWkS->{'MaxRow'})
919 0 0 if (not $rotate) { }
923 0 0 if defined $cell
924 0 0 if $x != $x2
932 0 0 if defined $cell
933 0 0 if $y != $y2
947 0 1782 if $string eq ""
953 0 1782 if $options{'textarea'}