Branch Coverage

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


line true false branch
175 4 0 if ($vals->[0] and $vals->[0] =~ /^(\d+) (\d+)/) { }
0 0 elsif ($vals->[1] and $vals->[1] =~ /^(\d+) (\d+) (\d+) (\d+)/) { }
180 2 2 $getHeight ? :
192 0 0 $ext && $ext eq 'AI' ? :
206 0 8 unless $raf->Read($data, 256)
208 4 4 if $data =~ /\x0a/g
209 3 5 if $data =~ /\x0d/g
211 0 8 if ($diff == 1) { }
0 8 elsif ($diff == -1) { }
3 5 elsif ($diff > 0) { }
4 1 elsif ($diff < 0) { }
235 107 1 if $$dataPt =~ /\x0a/g
236 108 0 if ($$dataPt =~ /\x0d/g) { }
0 0 elsif (not defined $endl) { }
237 107 1 if (defined $endl) { }
239 0 107 if pos $$dataPt < $endl - 1
247 1 107 if (length $$dataPt == $endl) { }
266 0 0 if ($pos >= $raf->{'PSEnd'})
268 0 0 if $pos > $raf->{'PSEnd'}
281 108 6 $/ eq "\r" ? :
283 0 114 unless $raf->ReadLine($data)
284 0 114 if $raf->{'PSEnd'}
286 1 113 if ($data =~ /$altnl/) { }
287 0 1 if (length $data > 500000 and &IsPC()) { }
289 0 0 unless ($changedNL)
309 0 114 if $changedNL
327 0 31 unless @$lines or &GetNextLine($raf, $lines)
328 31 0 unless $lines->[0] =~ /^%%\+/
329 0 0 if $dataPt
335 3 28 if ($val =~ s/^\((.*)\)$/$1/)
346 0 0 if $backslashes & 1
347 0 0 if ($bra eq '(') { }
351 0 0 unless ($nesting)
354 0 0 if $val =~ s/\s*\(//
366 0 0 if ($c =~ /[0-7]/) { }
368 0 0 if $val =~ /\G([0-7]{1,2})/g
380 0 3 @vals > 1 ? :
397 11 1 if ($c =~ /[0-7]/) { }
0 1 elsif ($c eq "\r") { }
0 1 elsif ($c eq "\n") { }
399 11 0 if $str =~ /\G([0-7]{1,2})/g
405 0 0 if $str =~ /\G(\x0a)/g
432 0 4 unless ($raf)
439 0 4 unless $raf->Read($data, 4) == 4
441 0 4 unless $data =~ /^(%!PS|%!Ad|%!Fo|\xc5\xd0\xd3\xc6)/
442 0 4 if ($data =~ /^%!Ad/) { }
0 4 elsif ($data =~ /^\xc5\xd0\xd3\xc6/) { }
444 0 0 unless $raf->Read($data, 6) == 6 and $data eq "obe-PS"
448 0 0 unless $raf->Read($dos, 26) == 26
451 0 0 unless ($raf->Seek($psStart, 0) and $raf->Read($data, 4) == 4 and $data eq "%!PS")
460 4 0 if $raf->Read($d2, 12)
461 2 2 if ($data =~ /^%!(PS-(AdobeFont-|Bitstream )|FontType1-)/)
474 0 4 unless $/
477 0 4 unless $raf->ReadLine($data)
479 2 2 if ($data =~ /EPSF/) { }
485 0 2 if ($raf->ReadLine($line2) and $line2 =~ /^%%Creator: Adobe Illustrator/) { }
493 0 4 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
497 4 0 unless $tagTablePtr
498 0 4 if ($dos)
500 0 0 if ($base)
505 0 0 if (defined $val and $val =~ /^(MM\0\x2a|II\x2a\0|Binary)/) { }
517 0 0 unless $et->ProcessTIFF(\%dirInfo)
527 2 2 if ($/ eq "\r") { }
534 243 482 if (@lines) { }
537 4 478 unless $raf->ReadLine($data)
539 2 476 if ($data =~ /$altnl/)
540 0 2 if (length $data > 500000 and &IsPC()) { }
544 0 0 unless ($changedNL)
556 0 2 if (@lines == 1 and $lines[0] eq $/)
565 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) { }
566 0 306 if (not $endToken) { }
298 8 elsif (not $data =~ /^$endToken/i) { }
4 4 elsif ($mode eq 'Document') { }
568 0 0 unless $data =~ /<\?xpacket end=.(w|r).\?>(\n|\r|$)/
570 216 82 if ($mode eq 'XMP') { }
29 53 elsif ($mode eq 'Document') { }
574 1 28 if $data =~ /^$beginToken/
584 3 1 unless $docNum
591 3 1 unless $docNum
603 2 11 unless ($mode)
604 2 0 if (not @lines and $data =~ /^%{1,2}BeginBinary:\s*(\d+)/i)
605 0 2 unless $raf->Seek($1, 1)
611 2 9 $2 eq 'begin' ? :
612 7 4 if ($mode eq "Document")
614 1 6 if ($docNum) { }
622 3 4 unless $embedded
632 4 0 if ($data =~ /^$beginToken:\s+([^\n\r]+)/i)
635 4 0 if $docName =~ /^\((.*)\)$/
646 0 0 unless $data =~ /<\?xpacket end=.(w|r).\?>(\n|\r|$)/
650 0 29 unless $data =~ /^%(%|AI\d+_)/ or $tag eq "ImageData"
657 0 0 unless (eval { do { require Compress::Zlib } })
665 0 0 if $backTo < 0
666 0 0 unless $raf->Seek($backTo, 0) and $raf->Read($data, 2048)
667 0 0 unless $data =~ s/.*?%AI12_CompressedData//
669 0 0 unless $inflate
672 0 0 if ($verbose > 1)
681 0 0 if $stat == Compress::Zlib::Z_STREAM_END()
682 0 0 if $stat != Compress::Zlib::Z_OK()
683 0 0 if (defined $val) { }
0 0 elsif ($v2 =~ /^%!PS/) { }
691 0 0 unless $raf->Read($data, 65536)
693 0 0 unless defined $val
694 0 0 if ($verbose > 1)
703 10 48 if (defined $comment)
705 4 6 if ($data =~ /^%\s+(.*?)[\x0d\x0a]/) { }
2 4 elsif (not $data =~ /^%/) { }
706 4 0 if $comment
711 2 0 if length $comment
715 24 30 if ($data =~ m[^\s*/(\w+)\s*(.*)] and $fontTable->{$1}) { }
2 28 elsif ($data =~ /^currentdict end/) { }
717 10 14 if ($val =~ /^\((.*)\)/) { }
14 0 elsif ($val =~ m[/?(\S+)]) { }
740 0 4 unless ($et->ProcessDirectory(\%dirInfo, $subTablePtr))
746 0 4 if $endDoc and not $mode
747 0 4 if $mode