Branch Coverage

blib/lib/Image/ExifTool/QuickTimeStream.pl
Criterion Covered Total %
branch 53 766 6.9


line true false branch
743 0 0 unless $dirLen > 8
748 0 0 unless $ee
750 0 0 if $verbose
757 0 0 if $end > $dirLen
760 0 0 if ($verbose)
768 0 0 if $len < 8 or $pos + $len > $end
774 0 0 if ($tag eq 'keyd') { }
0 0 elsif ($tag eq 'dtyp') { }
776 0 0 unless $tagID
777 0 0 if $verbose
779 0 0 if length $val < 4
780 0 0 if (length $val >= 4)
782 0 0 if ($ns == 0) { }
0 0 elsif ($ns == 1) { }
783 0 0 unless length $val >= 8
792 0 0 if $verbose and defined $str
795 0 0 if ($verbose > 1)
796 0 0 if (defined $str) { }
806 0 0 if (defined $tagID and defined $format)
807 0 0 if ($verbose)
825 8 0 if defined $time
826 8 0 if defined $dur
838 0 0 if (defined $sampleTime and $value->{'CreateDate'})
840 0 0 if ($et->{'CreateDateAtEnd'}) { }
841 0 0 unless $value->{'TimeScale'} and $value->{'Duration'}
847 0 0 unless ($et->Options("QuickTimeUTC"))
849 0 0 unless (defined $tzOff)
869 0 0 if $tags->{'GPSDateTime'}
885 0 0 if $et->{'NoMoreTextDecoding'}
887 0 0 if (ref $dataPt eq "HASH")
895 0 0 if ($tag =~ /^[A-Z]{2}RMC$/ and $dat =~ /^,(\d{2})(\d{2})(\d+(?:\.\d*)),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/) { }
0 0 elsif ($tag =~ /^[A-Z]{2}GGA$/ and $dat =~ /^,(\d{2})(\d{2})(\d+(?:\.\d*)?),(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/s) { }
0 0 elsif ($tag eq 'BEGINGSENSOR' and $dat =~ /^:([-+]\d+\.\d+):([-+]\d+\.\d+):([-+]\d+\.\d+)/) { }
0 0 elsif ($tag eq 'TIME' and $dat =~ /^:(\d+)/) { }
0 0 elsif ($tag eq 'BEGIN') { }
0 0 elsif ($tag ne 'END') { }
897 0 0 if ($et->{'LastTime'})
898 0 0 if ($et->{'LastTime'} eq $time) { }
0 0 elsif (%tags) { }
907 0 0 $14 >= 70 ? :
910 0 0 $6 eq 'N' ? :
911 0 0 $9 eq 'E' ? :
912 0 0 if length $10
913 0 0 if length $11
916 0 0 if ($et->{'LastTime'})
917 0 0 if ($et->{'LastTime'} eq $time) { }
0 0 elsif (%tags) { }
927 0 0 $6 eq 'N' ? :
928 0 0 $9 eq 'E' ? :
929 0 0 if defined $10
930 0 0 if defined $11
931 0 0 if defined $12
937 0 0 if length $dat
943 0 0 if %tags
978 0 0 if ($$dataPt =~ /^\0\0(..\xaa\xaa|\xf2\xe1\xf0\xee)/s and length $$dataPt >= 282)
980 0 0 if ($val =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/)
983 0 0 if ($val =~ /^([NS])(\d{2})(\d+$)$/)
984 0 0 $1 eq 'S' ? :
987 0 0 if ($val =~ /^([EW])(\d{3})(\d+$)$/)
988 0 0 $1 eq 'W' ? :
991 0 0 if $val =~ /^[-+]\d+$/
993 0 0 if $val =~ /^\d+$/
994 0 0 if ($$dataPt =~ /^\0\0..\xaa\xaa/s) { }
997 0 0 if ($val =~ /^([-+]\d{3})([-+]\d{3})([-+]\d{3})$/)
1010 0 0 if @acc
1013 0 0 if %tags
1019 0 0 if ($$dataPt =~ /GPS \(([-+]?\d*\.\d+),\s*([-+]?\d*\.\d+)/)
1023 0 0 if $$dataPt =~ /,\s*H\s+([-+]?\d+\.?\d*)m/
1024 0 0 if $$dataPt =~ /,\s*H.S\s+([-+]?\d+\.?\d*)/
1025 0 0 if $$dataPt =~ /,\s*D\s+(\d+\.?\d*)m/
1026 0 0 if $$dataPt =~ /,\s*V.S\s+([-+]?\d+\.?\d*)/
1027 0 0 if $$dataPt =~ m[\bF/(\d+\.?\d*)]
1028 0 0 if $$dataPt =~ /\bSS\s+(\d+\.?\d*)/
1029 0 0 if $$dataPt =~ m[\bEV\s+([-+]?\d+\.?\d*)(/\d+)?]
1030 0 0 if $$dataPt =~ /\bISO\s+(\d+\.?\d*)/
1037 0 0 if ($$dataPt =~ /^A,(\d{2})(\d{2})(\d{2}),(\d{2})(\d{2})(\d{2}(\.\d+)?)/)
1039 0 0 if ($$dataPt =~ /^A,.*?,.*?,(\d{2})(\d+\.\d+),([NS])/)
1040 0 0 $3 eq 'S' ? :
1042 0 0 if ($$dataPt =~ /^A,.*?,.*?,.*?,.*?,(\d{3})(\d+\.\d+),([EW])/)
1043 0 0 $3 eq 'W' ? :
1046 0 0 if $a[8] and $a[8] =~ s/M$//
1047 0 0 if $a[7] and $a[7] =~ /^\d+\.\d+$/
1048 0 0 if $a[11] and $a[11] =~ s/;\s*$//
1058 0 0 if ($$dataPt =~ /\*[0-9A-F]{2}~$/)
1064 0 0 if $n >= 0 and defined $decode[$n]
1067 0 0 if ($buff =~ /X(.*?)Y(.*?)Z(.*?)G(.*?)\$/)
1077 0 0 if ($$dataPt =~ /[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/ and $13 <= 31 and $14 <= 12 and $15 <= 99)
1081 0 0 $15 >= 70 ? :
1083 0 0 $7 eq 'N' ? :
1084 0 0 $10 eq 'E' ? :
1085 0 0 if length $11
1086 0 0 if length $12
1088 0 0 if $$dataPt =~ /\bgsensori,(.*?)(;|$)/
1089 0 0 if $$dataPt =~ /\bCAR,(.*?)(;|$)/
1091 0 0 if (%tags) { }
1096 0 0 if $et->{'UnknownTextCount'} > 100
1111 0 16 unless $ee
1116 12 4 if ($type eq "vide")
1117 0 12 if ($ee->{'avcC'}) { }
4 8 elsif ($ee->{'JPEG'}) { }
1127 8 0 unless ($start and $size)
1128 0 8 unless $size
1130 0 8 unless $stco and $stsc and @$stsc
1134 8 0 if ($stts and @$stts > 1)
1141 8 0 if ($iChunk >= $nextChunk and @$stsc)
1143 0 8 if @$stsc
1145 0 8 if @$size < @$start + $samplesPerChunk
1149 8 0 if (defined $time)
1151 0 0 if (@$stts < 2)
1164 8 0 if ++$i >= $samplesPerChunk
1169 0 8 unless @$start == @$size
1179 0 8 if ($verbose)
1185 0 8 if ($type eq "avcC")
1187 0 0 $hdrLen == 2 ? :
0 0 $hdrLen == 4 ? :
1199 0 8 unless $raf->Seek($start->[$i], 0) and $raf->Read($buff, $size) == $size
1201 0 8 if ($type eq "avcC")
1202 0 0 if length $buff <= $hdrLen
1206 0 0 if $pos + $hdrLen + $len > length $buff
1210 0 0 if $pos + $hdrLen >= length $buff
1212 0 0 if ($et->{'GotNAL06'})
1214 0 0 unless $eeOpt and $eeOpt > 2
1218 0 8 if ($verbose > 1)
1219 0 0 $et->{'SET_GROUP1'} ? :
1223 0 8 if ($type eq 'text' or $type eq 'sbtl' and $metaFormat eq 'tx3g' and $buff =~ /^..PNDM/s) { }
4 4 elsif ($processByMetaFormat{$type}) { }
0 4 elsif ($type eq 'gps ') { }
4 0 elsif ($tagTbl->{$type}) { }
1229 0 0 unless ($buff =~ /^\$BEGIN/)
1231 0 0 if $buff =~ s/\0\0\0\x0cencd\0\0\x01\0$//
1235 0 0 if ($size >= 2 and unpack("n", $buff) == $size - 2)
1236 0 0 if $size == 2
1241 0 0 if ($buff =~ /^\0/ and $buff =~ /\x0a$/ and length $buff > 5) { }
0 0 elsif ($buff =~ /^(\0.{3})?PNDM/s) { }
1246 0 0 if ($verbose > 2)
1250 0 0 if ($tmp =~ /^(.*?)(\$[A-Z]{2}RMC.*)/s)
1253 0 0 if length $val
1257 0 0 $1 ? :
1258 0 0 if length $buff < 20 + $n
1265 0 0 unless (defined $val)
1273 4 0 if ($tagTbl->{$metaFormat}) { }
0 0 elsif ($verbose) { }
1275 4 0 if ($tagInfo) { }
0 0 elsif ($metaFormat eq 'camm' and $buff =~ /^X/) { }
1289 0 0 if $buff =~ /X(.*?)Y(.*?)Z(.*?)G(.*?)\$/
1298 0 0 if ($buff =~ /^....freeGPS /s)
1311 4 0 if ($tagInfo)
1322 0 8 if $et->{'FoundGPSLatitude'} and not $et->{'FoundGPSDateTime'}
1324 0 8 if ($verbose)
1361 0 0 if $dirLen < 92
1363 0 0 if (substr($$dataPt, 18, 8) eq "\252\252\362\341\360\356TT") { }
0 0 elsif ($$dataPt =~ /^.{52}(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/s) { }
0 0 elsif ($$dataPt =~ /^.{37}\0\0\0A([NS])([EW])/s) { }
0 0 elsif ($$dataPt =~ /^.{21}\0\0\0A([NS])([EW])/s) { }
0 0 elsif ($$dataPt =~ /^.{60}A\0{3}.{4}([NS])\0{3}.{4}([EW])\0{3}/s) { }
0 0 elsif ($$dataPt =~ /^.{60}4W`b]S= 140) { }
0 0 elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0/s) { }
0 0 elsif ($$dataPt =~ /^.{12}\xac\0\0\0.{44}(.{72})/s) { }
0 0 elsif ($$dataPt =~ /^.{64}A([NS])([EW])\0/s) { }
1393 0 0 if $n > 257
1395 0 0 if ($et->Options("Verbose") > 1)
1400 0 0 unless $buf2 =~ /^.{8}(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2}).(.{15})([NS])(\d{8})([EW])(\d{9})(\d{8})?/s
1402 0 0 if (defined $spd) { }
0 0 elsif ($buf2 =~ /^.{57}([-+]\d{4})(\d{3})/s) { }
1409 0 0 if length $lbl
1411 0 0 if ($buf2 =~ /^.{65}(([-+]\d{3})([-+]\d{3})([-+]\d{3})([-+]\d{3})*)/s) { }
0 0 elsif ($buf2 =~ /^.{173}([-+]\d{3})([-+]\d{3})([-+]\d{3})/s) { }
1428 0 0 if ($$dataPt =~ /\$[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d+\.\d+),([NS]),(\d+\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/s)
1430 0 0 $13 >= 70 ? :
1432 0 0 if length $9
1433 0 0 if length $10
1435 0 0 if ($$dataPt =~ /\$[A-Z]{2}GGA,(\d{2})(\d{2})(\d+(\.\d*)?),(\d+\.\d+),([NS]),(\d+\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/s)
1436 0 0 unless defined $yr
1441 0 0 if (defined $lat)
1445 0 0 if $_ >= 2147483648
1510 0 0 if $trk >= 360
1523 0 0 if $_ >= 16
1524 0 0 unless /[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?\d{1,2}\.\d+),([NS]),(\d*?\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/
1526 0 0 $yr >= 70 ? :
1527 0 0 if length $9
1528 0 0 if length $10
1556 0 0 unless $stat eq "A" and $latRef eq 'N' || $latRef eq 'S' and $lonRef eq 'E' || $lonRef eq 'W'
1608 0 0 unless $mon >= 1 and $mon <= 12 and $day >= 1 and $day <= 31
1609 0 0 if $yr < 2000
1611 0 0 if $_ >= 2147483648
1631 0 0 unless $stat eq "A" and $latRef eq 'N' || $latRef eq 'S' and $lonRef eq 'E' || $lonRef eq 'W'
1643 0 0 if (abs $lat2 - $lat < "0.001" and abs $lon2 - $lon < "0.001")
1649 0 0 if $yr < 2000
1658 0 0 unless $ddd
1659 0 0 unless $sec =~ /^\d{2}/
1660 0 0 if (defined $yr) { }
0 0 elsif (defined $hr) { }
1667 0 0 $latRef eq 'S' ? :
1668 0 0 $lonRef eq 'W' ? :
1669 0 0 if defined $alt
1670 0 0 if defined $spd
1671 0 0 if defined $trk
1676 0 0 if @acc
1694 0 0 if $dirLen < 82
1696 0 0 if (substr($$dataPt, 69, 3) eq 'ATC') { }
0 0 elsif ($$dataPt =~ /^.{60}A\0.{10}([NS])\0.{14}([EW])\0/s) { }
0 0 elsif ($$dataPt =~ /^.{72}A([NS])([EW])/s) { }
0 0 elsif ($$dataPt =~ /^.{60}A\0.{6}([NS])\0.{6}([EW])\0/s and $dirLen >= 112) { }
0 0 elsif ($$dataPt =~ /^.{16}A([NS])([EW])\0/s) { }
1711 0 0 unless $then
1737 0 0 if $now[$i] <= $dateMax[$i]
1743 0 0 if ($now[$i] < $then->[$i])
1744 0 0 if $foundNew
1747 0 0 if $now[$i] == $then->[$i]
1749 0 0 if ($verbose)
1784 0 0 if $trk < 0
1801 0 0 if $recentRecPos and $recPos < $recentRecPos
1831 0 0 if $_ >= 2147483648
1861 0 0 if (substr($$dataPt, 16, 3) eq 'IQS') { }
1894 0 0 if $_ >= 2147483648
1910 0 0 if $_ >= 2147483648
1913 0 0 substr($dat, 1, 1) eq 'S' ? :
1914 0 0 substr($dat, 2, 1) eq 'W' ? :
1947 0 0 if $yr < 2000 or $yr > 2200 or $mon < 1 or $mon > 12 or $day < 1 or $day > 31 or $hr > 59 or $min > 59 or $sec > 600
1952 0 0 if $_ >= 2147483648
1953 0 0 if $trk >= 32768
1955 0 0 if $trk < 0
1963 0 0 if $pos += 32 > length($$dataPt) - 30
1965 0 0 $et->{'DOC_NUM'} ? :
1970 0 0 if $mon < 1 or $mon > 12
1972 0 0 if $yr < 2000
1975 0 0 unless $ddd
1977 0 0 $latRef eq 'S' ? :
1978 0 0 $lonRef eq 'W' ? :
1979 0 0 if defined $spd
1980 0 0 if defined $trk
1981 0 0 if (defined $alt)
1984 0 0 if @acc
1998 16 52 if ($tag eq 'stsz' or $tag eq 'stz2' and $dataLen > 12) { }
16 36 elsif ($tag eq 'stco' or $tag eq 'co64' and $dataLen > 8) { }
16 20 elsif ($tag eq 'stsc' and $dataLen > 8) { }
16 4 elsif ($tag eq 'stts' and $dataLen > 8) { }
0 4 elsif ($tag eq 'avcC') { }
4 0 elsif ($tag eq 'JPEG') { }
0 0 elsif ($tag eq 'gps ' and $dataLen > 8) { }
0 0 elsif ($tag eq 'GPS ') { }
2002 16 0 if ($tag eq 'stsz') { }
2003 0 16 if ($sz == 0) { }
2010 0 0 if ($sz == 4) { }
0 0 elsif ($sz == 8 or $sz == 16) { }
2024 0 16 $tag eq 'stco' ? :
2028 16 0 if ($dataLen >= 8 + $num * 12)
2039 16 0 if ($dataLen >= 8 + $num * 8)
2044 0 0 if $dataLen >= 7
2050 0 0 if $num * 8 + 8 > $dataLen
2066 0 0 if $dat eq "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
2074 0 0 if $a[4] eq "S"
2075 0 0 if $a[6] eq "W"
2094 0 0 if length $$dataPt < 2
2098 0 0 if ($$dataPt =~ /^..\w{3} (\d{4})-(\d{2})-(\d{2}) (\d{2}:\d{2}:\d{2}) ?([-+])(\d{2}):?(\d{2})$/s) { }
2114 0 0 if length $$dataPt < 2
2134 0 0 unless my $ee = $et->{'ee'}
2135 0 0 unless $ee->{'keys'}
2143 0 0 if $len < 8 or $pos + $len > length $$dataPt
2146 0 0 if ($info) { }
2148 0 0 unless ($tagTbl->{$tag})
2149 0 0 unless $tag =~ /^[-\w.]+$/
2180 0 0 if ($dirLen > $recLen and not $et->Options("ExtractEmbedded"))
2188 0 0 if $tc == 4294967295
2209 0 0 if ($dirLen > $recLen and not $et->Options("ExtractEmbedded"))
2219 0 0 if abs $lat > 9000 or abs $lon > 18000
2248 0 0 if ($dirLen > $recLen and not $et->Options("ExtractEmbedded"))
2278 0 0 unless $raf->Read($buff, 8) == 8
2280 0 0 if $tag eq "\0\0\0\0"
2281 0 0 unless ($tag =~ /^[\w ]{4}/ and $len < 33554432)
2285 0 0 unless $raf->Read($buff, $len) == $len
2286 0 0 if ($verbose)
2288 0 0 if $verbose > 2
2290 0 0 if $tag =~ /^(gps0|gsen)$/
2292 0 0 if ($tag eq 'gps0') { }
0 0 elsif ($tag eq 'gsen') { }
2310 0 0 unless substr($buff, $pos, 4) eq "AITG"
2315 0 0 if abs $lat > 9000 or abs $lon > 18000
2317 0 0 if &Get8u(\$buff, $pos + 33) == 2
2318 0 0 if &Get8u(\$buff, $pos + 34) == 2
2337 0 0 unless substr($buff, $pos, 4) eq "AITS"
2348 0 0 if $verbose
2367 0 0 if ($$dataPt =~ /(?:\[(\d+)\])?\$[A-Z]{2}(RMC|GGA),(\d{2}\d{2}\d+(\.\d*)?),/g)
2372 0 0 if ($fix{'tim'} and !$tim || $fix{'tim'} != $tim)
2373 0 0 if ($fix{'dat'} and defined $fix{'lat'} and defined $fix{'lon'})
2375 0 0 if $fix{'tc'} and $et->{'StartTime'}
2380 0 0 if defined $fix{'spd'}
2381 0 0 if defined $fix{'trk'}
2382 0 0 if defined $fix{'alt'}
2383 0 0 if defined $fix{'nsats'}
2384 0 0 if defined $fix{'hdop'}
2388 0 0 unless $fix{'tim'} = $tim
2392 0 0 if ($type eq 'RMC' and $$dataPt =~ /\G(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/g) { }
0 0 elsif ($type eq 'GGA' and $$dataPt =~ /\G(\d{2})(\d{2})(\d+(\.\d*)?),(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),[1-6]?,(\d+)?,(\.\d+|\d+\.?\d*)?,(-?\d+\.?\d*)?,M?/g) { }
2395 0 0 $15 >= 70 ? :
2398 0 0 $7 eq 'N' ? :
2399 0 0 $10 eq 'E' ? :
2400 0 0 if length $11
2401 0 0 if length $12
2405 0 0 $7 eq 'N' ? :
2406 0 0 $10 eq 'E' ? :
2427 0 0 if &ProcessNMEA($et, $dirInfo, $tagTbl)
2437 0 0 $7 eq 'S' ? :
2438 0 0 $9 eq 'W' ? :
2439 0 0 if length $11
2440 0 0 if length $12
2441 0 0 if length $13
2442 0 0 if length $14
2443 0 0 if length $15
2470 0 0 if $dirLen < $pos
2487 0 0 if ($resync and $type != 255)
2488 0 0 if ++$skipped > 256
2491 0 0 unless ($ttLen{$type})
2493 0 0 unless $warned
2498 0 0 if $pos + $ttLen{$type} > $dirLen
2499 0 0 if ($type == 255)
2502 0 0 if ($resync)
2503 0 0 if ($tm < $sampleTime or $tm > $sampleTime + 250)
2514 0 0 unless ($eeOpt)
2516 0 0 if $found & 1 << $type
2519 0 0 if ($type == 0 or $type == 3) { }
0 0 elsif ($type == 5) { }
0 0 elsif ($type < 3) { }
2523 0 0 $type ? :
2539 0 0 if ($unknown)
2547 0 0 if ($unknown)
2549 0 0 $type == 1 ? :
2557 0 0 unless $eeOpt or ($found & 41) != 41
2574 0 4 $dirInfo ? :
2577 4 0 unless $raf->Seek(-78 - $offset, 2) and $raf->Read($buff, 78) == 78 and substr($buff, -32) eq "8db42d694ccc418790edff439fe026bf"
2584 0 0 if $trailerLen > $fileEnd
2585 0 0 if ($dirInfo)
2588 0 0 if ($dirInfo->{'OutFile'})
2589 0 0 if ($et->{'DEL_GROUP'}{'Insta360'}) { }
0 0 elsif ($trailerLen > $fileEnd or not $raf->Seek($dirInfo->{'DataPos'}, 0) or $raf->Read(${$$dirInfo{'OutFile'};}, $trailerLen) != $trailerLen) { }
2600 0 0 if $verbose or $et->{'HTML_DUMP'}
2602 0 0 unless ($et->Options("ExtractEmbedded"))
2618 0 0 if ($epos -= $len) + $trailerLen < 0
2619 0 0 unless $raf->Seek($epos, 2)
2621 0 0 if ($verbose)
2625 0 0 if ($insvLimit{$id} and $len > $insvLimit{$id}[1] * $dlen and $et->Warn("Insta360 $insvLimit{$id}[0] data is huge. Processing only the first $insvLimit{$id}[1] records", 2))
2630 0 0 unless $raf->Read($buff, $len) == $len
2631 0 0 if $verbose > 2
2632 0 0 if ($dlen) { }
0 0 elsif ($id == 257) { }
2633 0 0 if $len % $dlen
2634 0 0 if ($id == 768) { }
0 0 elsif ($id == 1024) { }
0 0 elsif ($id == 1536) { }
0 0 elsif ($id == 1792) { }
2657 0 0 unless $a[3] eq "A"
2658 0 0 unless ($a[5] eq 'N' || $a[5] eq 'S' and $a[7] eq 'E' || $a[7] eq 'W' || $a[7] eq 'O')
2669 0 0 if $a[5] eq "S"
2670 0 0 if $a[7] ne "E"
2677 0 0 if $unknown
2683 0 0 if $p + 2 > $len
2685 0 0 if $p + 2 + $n > $len
2691 0 0 if ($epos -= 6) + $trailerLen < 0
2692 0 0 unless $raf->Seek($epos, 2)
2693 0 0 unless $raf->Read($buff, 6) == 6
2718 0 0 if ($tagTbl->{$type})
2719 0 0 if ($time != $lastTime)
2726 0 0 if $type == 5
2741 0 0 unless $$dataPt =~ /^FMAS\0\0\0\0.{72}SAMM.{36}A/s and length $$dataPt >= 160
2759 0 0 $a[9] eq 'S' ? :
2760 0 0 $a[8] eq 'W' ? :
2774 0 4 unless my $raf = $et->{'RAF'}
2780 0 4 if ($dataPos and not $et->{'DOC_COUNT'})
2782 0 0 if ($dataLen)
2783 0 0 if ($raf->Seek($dataPos, 0)) { }
2793 0 0 if $pos + $gpsBlockSize > $dataLen
2794 0 0 unless $raf->Read($buff, $gpsBlockSize)
2795 0 0 if length $buf2
2796 0 0 if length $buff < $gpsBlockSize
2800 0 0 if (not $buff =~ /\0..\0freeGPS /gs) { }
0 0 elsif (not $tagTbl) { }
2805 0 0 if $tagTbl or $pos < 20000000
2816 0 0 if (pos $buff > 12)
2822 0 0 if ($len < 12) { }
2826 0 0 if ($more > 0)
2827 0 0 unless $raf->Read($buf2, $more) == $more
2830 0 0 if ($verbose)
2840 0 4 if ($tagTbl)