Branch Coverage

blib/lib/Image/ExifTool/Photoshop.pm
Criterion Covered Total %
branch 58 234 24.7


line true false branch
691 0 0 if $i + $n >= $len
692 0 0 if $i
712 0 4 unless $fileType eq "PSD" or $fileType eq "PSB"
715 0 4 $fileType eq 'PSB' ? :
719 0 4 unless $raf->Read($data, $n) == $n
720 0 4 $psb ? :
721 0 4 if $tot == 0
724 0 4 $psb ? :
727 4 0 if ($len == 0 and $num == 0)
728 0 4 unless $raf->Read($data, 10) == 10
729 0 4 if ($data =~ /^..8BIMLr16/s) { }
0 4 elsif ($data =~ /^..8BIMMt16/s) { }
730 0 0 unless $raf->Read($data, $psiz + 2) == $psiz + 2
731 0 0 $psb ? :
733 0 0 unless $raf->Read($data, $psiz) == $psiz
734 0 0 unless $raf->Read($data, 8) == 8
735 0 0 if ($data eq '8BIMLr16') { }
736 0 0 unless $raf->Read($data, $psiz + 2) == $psiz + 2
737 0 0 $psb ? :
739 0 0 unless $raf->Seek(-18 - $psiz, 1)
742 0 4 unless $raf->Seek(-10, 1)
746 0 4 unless $raf->Seek(-2, 1)
755 4 0 $raf->Seek($end, 0) ? :
773 0 4 if $dirLen < 2
774 0 4 unless $raf->Read($buff, 2) == 2
776 0 4 if $num < 0
783 0 4 $psb ? :
786 0 0 if $pos + 18 > $dirLen
787 0 0 unless $raf->Read($buff, 18) == 18
793 0 0 unless $raf->Seek($n, 1)
795 0 0 if $pos + 20 > $dirLen
796 0 0 unless $raf->Read($buff, 20) == 20
799 0 0 unless $sig =~ /^(8BIM|MIB8)$/
806 0 0 if $pos + 4 > $dirLen
807 0 0 unless $raf->Seek($n, 1) and $raf->Read($buff, 4) == 4
810 0 0 if $pos + 1 > $dirLen
811 0 0 unless $raf->Seek($n, 1) and $raf->Read($buff, 1) == 1
813 0 0 if $pos + 1 + $n > $dirLen
814 0 0 unless $raf->Read($buff, $n) == $n
818 0 0 if $frag
823 0 0 unless $raf->Read($buff, 12) == 12
825 0 0 if &GetByteOrder() eq "II"
827 0 0 unless $sig eq "8BIM" or $sig eq "8B64"
832 0 0 if ($psb and $tag =~ /^(LMsk|Lr16|Lr32|Layr|Mt16|Mt32|Mtrn|Alph|FMsk|lnk2|FEid|FXid|PxSD)$/) { }
833 0 0 if $pos + 16 > $nxt
834 0 0 unless $raf->Read($buf2, 4) == 4
842 0 0 if $pos + $n > $nxt
844 0 0 if ($tagTablePtr->{$tag} or $verbose) { }
846 0 0 unless defined $count{$tag}
847 0 0 unless $raf->Read($buff, $n) == $n
850 0 0 $tag eq 'lsct' ? :
855 0 0 if ($frag)
856 0 0 unless $raf->Seek(4 - $frag, 1)
860 0 0 if $frag
861 0 0 unless $raf->Seek($n, 1)
870 0 0 $_ eq 'lsct' ? :
892 0 0 unless ($raf)
896 0 0 if $start
897 0 0 unless defined $dirLen
900 0 0 unless ($raf->Read($buff, $pos) == $pos and $buff =~ /^Adobe Photoshop Document Data (Block|V0002)\0/)
910 0 0 unless $raf->Read($buff, 8) == 8
912 0 0 $buff =~ /^(8BIM|8B64)/ ? :
0 0 if $pos == 36
913 0 0 if &GetByteOrder() eq "II"
915 0 0 unless $sig eq "8BIM" or $sig eq "8B64"
917 0 0 if ($psb and $tag =~ /^(LMsk|Lr16|Lr32|Layr|Mt16|Mt32|Mtrn|Alph|FMsk|lnk2|FEid|FXid|PxSD)$/) { }
918 0 0 if $pos + 16 > $dirLen
919 0 0 unless $raf->Read($buff, 8) == 8
923 0 0 unless $raf->Read($buff, 4) == 4
927 0 0 if $pos + $n > $dirLen
930 0 0 if ($tagInfo or $verbose) { }
931 0 0 if ($tagInfo and $tagInfo->{'SubDirectory'}) { }
935 0 0 unless $raf->Seek($fpos, 0)
940 0 0 unless $raf->Read($buff, $n) == $n
942 0 0 unless $raf->Seek($pad, 1)
945 0 0 unless $raf->Seek($n + $pad, 1)
949 0 0 if $err
968 5 88 if ($Image::ExifTool::MWG::strict || $et->Options('Validate') and $et->{'FILE_TYPE'} =~ /^(JPEG|TIFF|PSD)$/)
972 0 5 unless ($path =~ /^(JPEG-APP13-Photoshop|TIFF-IFD0-Photoshop|PSD)$/)
973 0 0 if ($Image::ExifTool::MWG::strict) { }
981 0 93 if ($et->{'FILE_TYPE'} eq "JPEG" and $dirInfo->{'Parent'} ne "APP13")
985 0 93 if $verbose
996 1182 0 if ($type eq '8BIM') { }
0 0 elsif ($type =~ /^(PHUT|DCSR|AgHg|MeSa)$/) { }
1011 1182 0 unless $nameLen & 1
1012 0 1182 if ($pos + 4 > $dirEnd)
1018 0 1182 if ($size + $pos > $dirEnd)
1023 0 1182 if ($nameLen) { }
1031 0 0 if ($tagInfo and defined $tagInfo->{'SetResourceName'} and $tagInfo->{'SetResourceName'} eq 1 and not $name =~ m[/#])
1046 388 794 if $size & 1
1050 32 28 if ($et->{'VALUE'}{'IPTCDigest'} and $et->{'VALUE'}{'CurrentIPTCDigest'} and $et->{'VALUE'}{'IPTCDigest'} ne $et->{'VALUE'}{'CurrentIPTCDigest'})
1070 0 5 unless $raf->Read($data, 30) == 30
1071 0 5 unless $data =~ /^8BPS\0([\x01\x02])/
1073 5 0 $1 eq "\cA" ? :
1080 1 4 if ($outfile) { }
1081 0 1 unless &Write($outfile, $data)
1082 0 1 unless $raf->Read($data, $len) == $len
1083 0 1 unless &Write($outfile, $data)
1091 0 4 unless $raf->Seek($len, 1)
1094 0 5 unless $raf->Read($data, 4) == 4
1096 0 5 unless $raf->Read($data, $len) == $len
1100 1 4 if ($outfile) { }
0 4 elsif ($err) { }
1103 1 0 if ($data) { }
1105 0 1 unless &Write($outfile, $len, $data)
1108 1 0 if ($trailInfo)
1112 1 0 if ($et->ProcessTrailers($trailInfo)) { }
1114 1 0 if ($copyBytes >= 0) { }
1117 0 1 $copyBytes > 65536 ? :
1118 0 1 unless $raf->Read($data, $n) == $n
1119 0 1 unless &Write($outfile, $data)
1123 0 1 unless $et->WriteTrailerBuffer($trailInfo, $outfile)
1132 0 1 unless ($trailInfo)
1135 0 0 unless &Write($outfile, $data)
1141 0 1 if $err
1152 4 0 if (&ProcessLayersAndMask($et, \%dirInfo, $tagTablePtr) and $raf->Read($data, 2) == 2)
1166 4 0 if $trailInfo