Branch Coverage

blib/lib/Image/ExifTool/M2TS.pm
Criterion Covered Total %
branch 85 236 36.0


line true false branch
241 1 0 if ($$dataPt =~ /\x0b\x77..(.)/gs)
257 0 1 if length $$dataPt < 3
277 0 2 unless defined $type
279 0 2 if ($verbose > 1)
285 0 2 if ($type == 1 or $type == 2) { }
0 2 elsif ($type == 3 or $type == 4) { }
1 1 elsif ($type == 27) { }
1 0 elsif ($type == 129 or $type == 135 or $type == 145) { }
0 0 elsif ($type < 0) { }
298 0 1 if ($et->{'OPTIONS'}{'ExtractEmbedded'}) { }
1 0 elsif (not $et->{'OPTIONS'}{'Validate'}) { }
307 0 0 if ($$dataPt =~ /^(.{164})?(.{24})A[NS][EW]/s) { }
0 0 elsif ($$dataPt =~ /^A([NS])([EW])\0/s) { }
0 0 elsif ($$dataPt =~ /^\$(GPSINFO|GSNRINFO),/) { }
0 0 elsif ($$dataPt =~ /^.{44}A\0{3}.{4}([NS])\0{3}.{4}([EW])\0{3}/s and length $$dataPt >= 84) { }
343 0 0 if $_ >= 2147483648
346 0 0 substr($dat, 1, 1) eq 'S' ? :
347 0 0 substr($dat, 2, 1) eq 'W' ? :
365 0 0 if ($line =~ /^\$GPSINFO/) { }
0 0 elsif ($line =~ /^\$GSNRINFO/) { }
367 0 0 unless @a > 7
369 0 0 if $lastTime and $a[2] eq $lastTime
406 0 0 $1 eq 'S' ? :
407 0 0 $2 eq 'W' ? :
435 0 1 unless $raf->Read($buff, 8) == 8
437 0 1 unless $buff =~ /^(....)?\x47/s
438 1 0 if ($1) { }
449 0 1 unless $raf->Read($buff, $readSize) >= $pLen * 4
452 0 3 unless substr($buff, $prePos + $pLen * $j, 1) eq "G"
476 0 1 if (($et->Options('ExtractEmbedded') || 0) > 2)
487 0 8 unless (%needPID)
488 0 0 unless defined $startTime
490 0 0 unless (defined $backScan)
493 0 0 if $et->Options("FastScan")
494 0 0 if $verbose
498 0 0 unless $raf->Seek(0, 2)
505 0 0 if ($nMax < int -$maxBack / $pLen) { }
516 0 8 if (defined $backScan) { }
517 0 0 if defined $endTime
519 0 0 if ($pos < 0)
521 0 0 if $backScan <= $maxBack
523 0 0 if $buffLen > $readSize
525 0 0 unless $raf->Seek($backScan, 2)
526 0 0 unless $raf->Read($buff, $buffLen) == $buffLen
531 1 7 if ($pos + $pLen > length $buff)
532 1 0 unless $raf->Read($buff, $readSize) >= $pLen
541 0 7 unless (($prefix & 4278190080) == 1191182336)
542 0 0 unless defined $backScan
553 0 7 if ($verbose > 1)
557 0 0 $pidName{$pid} ? :
558 0 0 if $pLen == 192
560 0 0 $payload_unit_start_indicator ? :
565 1 6 if ($adaptation_field_exists)
567 0 1 if $pos + $len > $pEnd
569 1 0 if ($len > 6)
571 1 0 if ($flags & 16)
578 1 0 unless defined $startTime
586 1 6 unless $payload_data_exists and not defined $backScan
589 3 3 if ($pid == 0 or defined $pmt{$pid}) { }
3 0 elsif (not defined $didPID{$pid}) { }
594 3 0 if ($payload_unit_start_indicator) { }
598 0 3 if $pos >= $pEnd
603 0 0 unless $sectLen{$pid}
606 0 0 if $size > $more
608 0 0 unless $size == $more
616 0 3 if $pos + 8 > $slen
620 2 1 $pid ? :
621 1 2 unless ($table_id == $expectedID)
622 0 1 if $verbose > 1
629 0 2 unless $section_syntax_indicator == 128
631 0 2 if $section_length > 1021
632 0 2 if ($slen < $section_length + 3)
641 0 2 if ($verbose > 1)
643 0 0 if $pid
644 0 0 unless $pid
650 1 1 if ($pid == 0) { }
658 2 0 unless $didPID{$program_map_PID}
659 0 2 if $verbose
664 0 1 if $pos + 4 > $slen
669 0 1 if $verbose
671 0 1 if $pos + $program_info_length > $slen
673 0 1 if ($verbose > 1)
677 0 0 if $j + $descriptor_length > $program_info_length
689 0 0 $stream_type < 127 ? :
0 2 unless $str
692 0 2 if $verbose
693 2 0 if ($str =~ /(Audio|Video)/)
694 2 0 unless ($pidName{$elementary_pid})
698 2 0 unless $didPID{$elementary_pid}
704 0 2 if $pos + $es_info_length > $slen
710 0 3 if $j + $descriptor_length > $es_info_length
713 0 3 if ($verbose > 1)
719 3 0 unless ($didPID{$pid})
720 1 2 if ($descriptor_tag == 129)
733 2 1 if ($payload_unit_start_indicator) { }
734 0 2 if (defined $data{$pid})
739 0 0 unless ($more)
748 0 2 if $pos + 6 > $pEnd
750 0 2 unless ($start_code & 4294967040) == 256
752 0 2 if ($verbose > 1)
758 2 0 unless ($noSyntax{$stream_id})
759 0 2 if $pos + 3 > $pEnd
762 0 2 unless $syntax == 128
766 0 2 if $pos >= $pEnd
770 0 1 unless (defined $data{$pid})
772 0 0 unless $gpsPID{$pid}
780 2 1 !$pidType{$pid} || $pidType{$pid} == 27 ? :
781 0 3 if (length $data{$pid} >= $saveLen)
783 0 0 if $more < 0
785 0 0 if $more
791 2 0 if ($needPID{$pid})
800 0 1 unless defined $endTime
801 1 0 if (defined $startTime and defined $endTime)
802 0 1 if $startTime > $endTime
806 0 1 if ($verbose)
809 0 0 if $needPID{$_} > 0
811 0 0 if (@need) { }
815 0 0 $eof ? :