Branch Coverage

blib/lib/Image/ExifTool/RIFF.pm
Criterion Covered Total %
branch 54 182 29.6


line true false branch
1473 1 1 if (@part >= 5 and $mon = $monthNum{ucfirst lc $part[1]}) { }
1 0 elsif ($val =~ m[(\d{4})/\s*(\d+)/\s*(\d+)/?\s+(\d+):\s*(\d+)\s*(P?)]) { }
0 0 elsif ($val =~ m[(\d{4})[-/](\d+)[-/](\d+)\s+(\d+:\d+:\d+)]) { }
1480 0 1 $6 ? :
1500 0 0 if ($ss >= 60)
1502 0 0 if ++$min >= 60
1525 2 0 if $val[0]
1526 2 0 if ($val[2] and $val[3])
1529 0 2 if $rat > "1.9" and $rat < "3.1"
1531 2 0 if defined $dur1
1532 2 0 unless $subDoc++ < $et->{'DOC_COUNT'}
1538 0 0 if ($subDoc == 1) { }
1543 0 0 if $j
1544 0 0 unless defined $rawValue->{$key}
1552 0 0 if $i < 2
1554 0 0 $key ? :
1556 0 0 unless defined $val[0] and defined $val[1]
1571 0 0 if $size < 4
1572 0 0 if ($et->Options("Verbose"))
1577 0 0 unless ($tagInfo)
1579 0 0 unless $tagInfo
1582 0 0 if ($tagInfo->{'SubDirectory'}) { }
1595 0 0 unless ($offset)
1625 0 0 if $n > 2
1650 13 0 unless ($charset)
1651 0 13 if ($et->{'CodePage'}) { }
13 0 elsif (defined $charset and $charset eq '0') { }
1658 0 13 if $verbose
1664 0 34 if ($start + $len > $end)
1668 5 29 if ($tag eq "LIST" and $len >= 4)
1676 28 6 if ($tagInfo) { }
0 6 elsif ($verbose or $unknown) { }
1677 17 11 if ($tagInfo->{'SubDirectory'}) { }
10 1 elsif (not $tagInfo->{'Binary'}) { }
1680 1 16 if (defined $newBase)
1691 3 7 if ($format and $format eq "string")
1695 3 0 if $charset
1709 3 31 if $len & 1
1735 0 0 $a[2] ? :
0 0 $a[4] ? :
0 0 $a[6] ? :
1738 0 0 unless ($ee)
1773 0 0 $a[15] eq 'S' ? :
1774 0 0 $a[14] eq 'W' ? :
1778 0 0 unless ($ee)
1799 0 0 unless ($et->Options("ExtractEmbedded"))
1811 0 0 if $pos + $recLen{$rec} > $dataLen
1815 0 0 if ($rec eq '0GPS') { }
1818 0 0 if $endPos > $dataLen
1823 0 0 if ($1 eq 'GC') { }
1826 0 0 if ($buff =~ /\G(\d+),\d*,\d*,(\d+),([-\d.]+),(\d+),\d*,A/g)
1832 0 0 if ($buff =~ /\GA,([\d.]+),([\d.]+),(\d+),([NS]),([EW])/g)
1839 0 0 if $ns eq "S"
1840 0 0 if $ew eq "W"
1845 0 0 unless ($buff =~ /\$(GC|GA),$time,/g)
1847 0 0 if (not $$dataPt =~ /\$(GC|GA),(\d+)/ or $1 ne $time)
1849 0 0 if ($date) { }
1855 0 0 if (defined $lat)
1860 0 0 if (defined $alt)
1877 0 0 if $_ >= 2147483648
1902 0 4 unless $raf->Read($buff, 12) == 12
1903 4 0 if ($buff =~ /^(RIFF|RF64)....(.{4})/s) { }
1905 0 4 if $1 eq "RF64"
1908 0 0 unless $buff =~ /^(LA0[234]|OFR |LPAC|wvpk)/ and $raf->Read($buf2, 1024)
1911 0 0 unless $buff =~ /WAVE(.{4})?fmt /gs and $raf->Seek(pos($buff) - 4, 0)
1913 0 4 if $et->Options("FastScan")
1914 4 0 if $type
1916 0 4 if $rf64
1927 4 15 if ($num < 8)
1928 0 4 if $num
1934 10 5 if ($tag eq 'LIST') { }
0 5 elsif ($tag eq 'data' and $len == 4294967295 and $et->{'DataSize64'}) { }
1935 0 10 unless $raf->Read($buff, 4) == 4
1943 3 12 if ($len <= 0)
1944 0 3 if ($len < 0) { }
0 3 elsif ($tag eq "\000\000\000\000") { }
1957 0 0 if ($et->Options("FastScan") and $tag eq 'data' || $tag eq 'idx1' || $tag eq 'LIST_movi' && !$ee)
1966 0 12 if ($ee and $tag =~ /^(\d{2})tx$/)
1968 0 0 unless defined $tagTbl->{$tag}
1972 12 0 if ($tagInfo or $verbose || $unknown and not $tag =~ /^(data|idx1|LIST_movi|RIFF|\d{2}(db|dc|wb))$/) { }
0 0 elsif ($tag eq 'RIFF') { }
0 0 elsif ($tag eq 'LIST_movi' and $ee) { }
1973 0 12 unless $raf->Read($buff, $len2) == $len2
1975 0 11 if ($tagInfo and ref $tagInfo eq "HASH" and $tagInfo->{'SetGroups'})
1978 0 0 if not $tagInfo and $verbose || $unknown
1986 0 12 if ($setGroups)
1990 0 12 if $ee
1993 0 0 unless $raf->Read($buff, 4) == 4
1999 0 0 if ($len > 2147483647 and not $et->Options("LargeFileSupport"))
2003 0 0 unless $raf->Seek($len2, 1)
2008 0 4 if $err