Branch Coverage

blib/lib/Image/ExifTool/Font.pm
Criterion Covered Total %
branch 53 116 45.6


line true false branch
342 0 0 unless $raf->Read($buff, 12) == 12
343 0 0 unless $buff =~ /^ttcf\0[\x01\x02]\0\0/
347 0 0 unless $num < 256 and $raf->Read($buff, $num * 4) == $num * 4
349 0 0 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
358 0 0 unless $raf->Seek($offset, 0)
359 0 0 unless &ProcessOTF($et, $dirInfo)
376 0 2 unless $raf->Read($buff, 12) == 12
377 0 2 unless $buff =~ /^(\0\x01\0\0|OTTO|true|typ1|\xa5(kbd|lst))[\0\x01]/
379 0 2 $1 eq 'OTTO' ? :
380 0 2 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
383 0 2 unless $numTables > 0 and $numTables < 512
385 0 2 unless $raf->Read($tbl, $len) == $len
390 0 2 if $verbose
395 14 2 unless $tag eq "name" or $verbose
398 0 2 unless ($raf->Seek($offset + $base, 0) and $raf->Read($buff, $size) == $size)
402 0 2 if ($verbose)
407 0 0 if $verbose > 2
408 0 0 unless $tag eq "name"
410 0 2 unless $size >= 8
413 0 2 if ($recEnd > $size)
418 0 2 if ($strStart < $recEnd or $strStart > $size)
424 0 2 if (&Get16u(\$buff, 0) == 1 and $recEnd + 2 <= $size)
426 0 0 if ($langTags and $recEnd + 2 + $langTags * 4 < $size)
431 0 0 if $langLen == 0 or $langLen & 1 or $langLen > 40
433 0 0 if $langPt + $langLen > $size
443 0 2 if $verbose
452 63 0 if ($strPt + $strLen <= $size)
457 63 0 if ($sys) { }
460 0 63 if (not $charset) { }
461 0 0 unless (defined $charset or $et->{'FontWarn'})
474 30 20 if ($tagInfo and $lang and $lang ne "en")
476 30 0 if $langInfo
478 0 63 if ($verbose)
479 0 0 if $langID > 1024
496 2 0 unless $verbose
515 0 1 unless $buff =~ /^Start(Comp|Master)?FontMetrics\s+\d+/
516 0 0 $1 eq 'Comp' ? :
0 1 $1 ? :
518 0 1 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
522 0 19 unless $raf->ReadLine($buff)
523 1 18 if (defined $comment and not $buff =~ /^Comment\s/)
527 0 19 unless $buff =~ /^(\w+)\s+(.*?)[\x0d\x0a]/
529 1 18 if ($tag eq "Comment" and $val =~ /^(Creation Date):\s+(.*)/)
533 1 18 if ($tag eq "Comment")
535 0 1 defined $comment ? :
538 6 12 unless ($et->HandleTag($tagTablePtr, $tag, $val))
540 1 5 if $tag =~ /^Start/ and $tag ne "StartDirection"
555 0 5 unless $raf->Read($buff, 24) and $raf->Seek(0, 0)
556 1 4 if ($buff =~ /^(\0\x01\0\0|OTTO|true|typ1)[\0\x01]/) { }
0 4 elsif ($buff =~ /^ttcf\0[\x01\x02]\0\0/) { }
1 3 elsif ($buff =~ /^Start(Comp|Master)?FontMetrics\s+\d+/s) { }
2 1 elsif ($buff =~ /^(.{6})?%!(PS-(AdobeFont-|Bitstream )|FontType1-)/s) { }
1 0 elsif ($buff =~ /^\0[\x01\x02]/ and $raf->Seek(0, 2) and $raf->Tell > 117 and $raf->Tell == unpack('x2V', $buff) and $raf->Seek(0, 0) and $raf->Read($buff, 117) == 117 and &SetByteOrder('II') and $raf->Seek(&Get32u(\$buff, 101), 0) and $raf->Read($buf2, 11) == 11 and lc $buf2 eq "postscript\000") { }
0 0 elsif ($buff =~ /^(wOF[F2])/) { }
563 1 1 if $1
578 0 1 if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3
585 1 0 if ($raf->Seek($nameOff, 0) and $raf->Read($buff, 256) and $buff =~ /^([\x20-\xff]+)\0([\x20-\xff]+)\0/)
593 0 0 $1 eq 'wOFF' ? :