Branch Coverage

blib/lib/Image/ExifTool/PostScript.pm
Criterion Covered Total %
branch 126 242 52.0


line true false branch
166 5 0 if ($vals->[0] and $vals->[0] =~ /^(\d+) (\d+)/) { }
0 0 elsif ($vals->[1] and $vals->[1] =~ /^(\d+) (\d+) (\d+) (\d+)/) { }
171 2 3 $getHeight ? :
183 0 0 $ext && $ext eq 'AI' ? :
197 0 8 unless $raf->Read($data, 256)
199 4 4 if $data =~ /\x0a/g
200 3 5 if $data =~ /\x0d/g
202 0 8 if ($diff == 1) { }
0 8 elsif ($diff == -1) { }
3 5 elsif ($diff > 0) { }
4 1 elsif ($diff < 0) { }
226 107 1 if $$dataPt =~ /\x0a/g
227 108 0 if ($$dataPt =~ /\x0d/g) { }
0 0 elsif (not defined $endl) { }
228 107 1 if (defined $endl) { }
230 0 107 if pos $$dataPt < $endl - 1
238 1 107 if (length $$dataPt == $endl) { }
257 0 0 if ($pos >= $raf->{'PSEnd'})
259 0 0 if $pos > $raf->{'PSEnd'}
272 108 6 $/ eq "\r" ? :
274 0 114 unless $raf->ReadLine($data)
275 0 114 if $raf->{'PSEnd'}
277 1 113 if ($data =~ /$altnl/) { }
278 0 1 if (length $data > 500000 and &Image::ExifTool::IsPC()) { }
280 0 0 unless ($changedNL)
300 0 114 if $changedNL
318 0 31 unless @$lines or &GetNextLine($raf, $lines)
319 31 0 unless $lines->[0] =~ /^%%\+/
320 0 0 if $dataPt
326 3 28 if ($val =~ s/^\((.*)\)$/$1/)
337 0 0 if $backslashes & 1
338 0 0 if ($bra eq '(') { }
342 0 0 unless ($nesting)
345 0 0 if $val =~ s/\s*\(//
357 0 0 if ($c =~ /[0-7]/) { }
359 0 0 if $val =~ /\G([0-7]{1,2})/g
371 0 3 @vals > 1 ? :
388 11 1 if ($c =~ /[0-7]/) { }
0 1 elsif ($c eq "\r") { }
0 1 elsif ($c eq "\n") { }
390 11 0 if $str =~ /\G([0-7]{1,2})/g
396 0 0 if $str =~ /\G(\x0a)/g
423 0 4 unless ($raf)
430 0 4 unless $raf->Read($data, 4) == 4
432 0 4 unless $data =~ /^(%!PS|%!Ad|%!Fo|\xc5\xd0\xd3\xc6)/
433 0 4 if ($data =~ /^%!Ad/) { }
0 4 elsif ($data =~ /^\xc5\xd0\xd3\xc6/) { }
435 0 0 unless $raf->Read($data, 6) == 6 and $data eq "obe-PS"
439 0 0 unless $raf->Read($dos, 26) == 26
442 0 0 unless ($raf->Seek($psStart, 0) and $raf->Read($data, 4) == 4 and $data eq "%!PS")
451 4 0 if $raf->Read($d2, 12)
452 2 2 if ($data =~ /^%!(PS-(AdobeFont-|Bitstream )|FontType1-)/)
465 0 4 unless $/
468 0 4 unless $raf->ReadLine($data)
470 2 2 if ($data =~ /EPSF/) { }
476 0 2 if ($raf->ReadLine($line2) and $line2 =~ /^%%Creator: Adobe Illustrator/) { }
484 0 4 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
488 4 0 unless $tagTablePtr
489 0 4 if ($dos)
491 0 0 if ($base)
496 0 0 if (defined $val and $val =~ /^(MM\0\x2a|II\x2a\0|Binary)/) { }
508 0 0 unless $et->ProcessTIFF(\%dirInfo)
518 2 2 if ($/ eq "\r") { }
525 243 482 if (@lines) { }
528 4 478 unless $raf->ReadLine($data)
530 2 476 if ($data =~ /$altnl/)
531 0 2 if (length $data > 500000 and &Image::ExifTool::IsPC()) { }
535 0 0 unless ($changedNL)
547 0 2 if (@lines == 1 and $lines[0] eq $/)
556 306 415 if ($mode) { }
4 411 elsif ($endDoc and $data =~ /^$endDoc/i) { }
13 398 elsif ($data =~ /^(%{1,2})(Begin)(_xml_packet|Photoshop|ICCProfile|Document|Binary)/i) { }
0 398 elsif ($data =~ /^<\?xpacket begin=.{7,13}W5M0MpCehiHzreSzNTczkc9d/) { }
29 369 elsif ($data =~ /^%%?(\w+): ?(.*)/s and $tagTablePtr->{$1}) { }
0 369 elsif ($embedded and $data =~ /^%AI12_CompressedData/) { }
58 311 elsif ($fontTable) { }
557 0 306 if (not $endToken) { }
298 8 elsif (not $data =~ /^$endToken/i) { }
4 4 elsif ($mode eq 'Document') { }
559 0 0 unless $data =~ /<\?xpacket end=.(w|r).\?>(\n|\r|$)/
561 216 82 if ($mode eq 'XMP') { }
29 53 elsif ($mode eq 'Document') { }
565 1 28 if $data =~ /^$beginToken/
575 3 1 unless $docNum
582 3 1 unless $docNum
594 2 11 unless ($mode)
595 2 0 if (not @lines and $data =~ /^%{1,2}BeginBinary:\s*(\d+)/i)
596 0 2 unless $raf->Seek($1, 1)
602 2 9 $2 eq 'begin' ? :
603 7 4 if ($mode eq "Document")
605 1 6 if ($docNum) { }
613 3 4 unless $embedded
623 4 0 if ($data =~ /^$beginToken:\s+([^\n\r]+)/i)
626 4 0 if $docName =~ /^\((.*)\)$/
637 0 0 unless $data =~ /<\?xpacket end=.(w|r).\?>(\n|\r|$)/
641 0 29 unless $data =~ /^%(%|AI\d+_)/ or $tag eq "ImageData"
648 0 0 unless (eval { do { require Compress::Zlib } })
656 0 0 if $backTo < 0
657 0 0 unless $raf->Seek($backTo, 0) and $raf->Read($data, 2048)
658 0 0 unless $data =~ s/.*?%AI12_CompressedData//
660 0 0 unless $inflate
663 0 0 if ($verbose > 1)
672 0 0 if $stat == Compress::Zlib::Z_STREAM_END()
673 0 0 if $stat != Compress::Zlib::Z_OK()
674 0 0 if (defined $val) { }
0 0 elsif ($v2 =~ /^%!PS/) { }
682 0 0 unless $raf->Read($data, 65536)
684 0 0 unless defined $val
685 0 0 if ($verbose > 1)
694 10 48 if (defined $comment)
696 4 6 if ($data =~ /^%\s+(.*?)[\x0d\x0a]/) { }
2 4 elsif (not $data =~ /^%/) { }
697 4 0 if $comment
702 2 0 if length $comment
706 24 30 if ($data =~ m[^\s*/(\w+)\s*(.*)] and $fontTable->{$1}) { }
2 28 elsif ($data =~ /^currentdict end/) { }
708 10 14 if ($val =~ /^\((.*)\)/) { }
14 0 elsif ($val =~ m[/?(\S+)]) { }
731 0 4 unless ($et->ProcessDirectory(\%dirInfo, $subTablePtr))
737 0 4 if $endDoc and not $mode
738 0 4 if $mode