Branch Coverage

blib/lib/Image/ExifTool/RIFF.pm
Criterion Covered Total %
branch 57 192 29.6


line true false branch
1555 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+)]) { }
1562 0 1 $6 ? :
1582 0 0 if ($ss >= 60)
1584 0 0 if ++$min >= 60
1607 2 0 if $val[0]
1608 2 0 if ($val[2] and $val[3])
1611 0 2 if $rat > "1.9" and $rat < "3.1"
1613 2 0 if defined $dur1
1614 2 0 unless $subDoc++ < $et->{'DOC_COUNT'}
1620 0 0 if ($subDoc == 1) { }
1625 0 0 if $j
1626 0 0 unless defined $rawValue->{$key}
1634 0 0 if $i < 2
1636 0 0 $key ? :
1638 0 0 unless defined $val[0] and defined $val[1]
1653 0 0 if $size < 4
1654 0 0 if ($et->Options("Verbose"))
1659 0 0 unless ($tagInfo)
1661 0 0 unless $tagInfo
1664 0 0 if ($tagInfo->{'SubDirectory'}) { }
1677 0 0 unless ($offset)
1707 0 0 if $n > 2
1732 13 0 unless ($charset)
1733 0 13 if ($et->{'CodePage'}) { }
13 0 elsif (defined $charset and $charset eq '0') { }
1740 0 13 if $verbose
1746 0 34 if ($start + $len > $end)
1750 5 29 if ($tag eq "LIST" and $len >= 4)
1758 28 6 if ($tagInfo) { }
0 6 elsif ($verbose or $unknown) { }
1759 17 11 if ($tagInfo->{'SubDirectory'}) { }
10 1 elsif (not $tagInfo->{'Binary'}) { }
1762 1 16 if (defined $newBase)
1773 3 7 if ($format and $format eq "string")
1777 3 0 if $charset
1791 3 31 if $len & 1
1817 0 0 $a[2] ? :
0 0 $a[4] ? :
0 0 $a[6] ? :
1820 0 0 unless ($ee)
1855 0 0 $a[15] eq 'S' ? :
1856 0 0 $a[14] eq 'W' ? :
1860 0 0 unless ($ee)
1881 0 0 unless ($et->Options("ExtractEmbedded"))
1893 0 0 if $pos + $recLen{$rec} > $dataLen
1897 0 0 if ($rec eq '0GPS') { }
1900 0 0 if $endPos > $dataLen
1905 0 0 if ($1 eq 'GC') { }
1908 0 0 if ($buff =~ /\G(\d+),\d*,\d*,(\d+),([-\d.]+),(\d+),\d*,A/g)
1914 0 0 if ($buff =~ /\GA,([\d.]+),([\d.]+),(\d+),([NS]),([EW])/g)
1921 0 0 if $ns eq "S"
1922 0 0 if $ew eq "W"
1927 0 0 unless ($buff =~ /\$(GC|GA),$time,/g)
1929 0 0 if (not $$dataPt =~ /\$(GC|GA),(\d+)/ or $1 ne $time)
1931 0 0 if ($date) { }
1937 0 0 if (defined $lat)
1942 0 0 if (defined $alt)
1959 0 0 if $_ >= 2147483648
1985 0 7 unless $raf->Read($buff, 12) == 12
1986 7 0 if ($buff =~ /^(RIFF|RF64)....(.{4})/s) { }
1988 0 7 if $1 eq "RF64"
1991 0 0 unless $buff =~ /^(LA0[234]|OFR |LPAC|wvpk)/ and $raf->Read($buf2, 1024)
1994 0 0 unless $buff =~ /WAVE(.{4})?fmt /gs and $raf->Seek(pos($buff) - 4, 0)
1996 0 7 if $et->Options("FastScan")
1997 7 0 if $type
1999 0 7 if $rf64
2012 7 32 if ($num < 8)
2013 0 7 if $num
2014 0 7 if $validate and $pos != $riffEnd
2020 4 28 if $tag eq "VP8X" and $type eq "WEBP"
2022 10 22 if ($tag eq 'LIST') { }
0 22 elsif ($tag eq 'data' and $len == 4294967295 and $et->{'DataSize64'}) { }
2023 0 10 unless $raf->Read($buff, 4) == 4
2031 3 29 if ($len <= 0)
2032 0 3 if ($len < 0) { }
0 3 elsif ($tag eq "\000\000\000\000") { }
2044 0 0 if ($et->Options("FastScan") and $tag eq 'data' || $tag eq 'idx1' || $tag eq 'LIST_movi' && !$ee)
2053 0 29 if ($ee and $tag =~ /^(\d{2})tx$/)
2055 0 0 unless defined $tagTbl->{$tag}
2060 29 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) { }
2061 0 29 unless $raf->Read($buff, $len2) == $len2
2063 0 25 if ($tagInfo and ref $tagInfo eq "HASH" and $tagInfo->{'SetGroups'})
2066 0 0 if not $tagInfo and $verbose || $unknown
2074 0 29 if ($setGroups)
2078 0 29 if $ee
2080 0 0 if $validate and $pos - 8 != $riffEnd
2083 0 0 unless $raf->Read($buff, 4) == 4
2091 0 0 if ($len > 2147483647 and not $et->Options("LargeFileSupport"))
2095 0 0 if ($validate and $len2) { }
2097 0 0 unless $raf->Seek($len2 - 1, 1) and $raf->Read($buff, 1) == 1
2099 0 0 unless $raf->Seek($len2, 1)
2105 0 7 if $err