Branch Coverage

lib/PostScript/FontMetrics.pm
Criterion Covered Total %
branch 77 144 53.4


line true false branch
35 0 1 unless defined $font
43 0 0 if $error eq 'die'
44 0 0 if $error eq 'warn'
48 0 1 if ($@)
62 1 218 unless defined $$self{'Wx'}
68 0 219 unless defined $$self{'encodingvector'}
74 0 0 unless defined $$self{'BBox'}
80 1 215 unless defined $$self{'Kern'}
94 0 1 unless $fh->open($fn)
95 0 1 if $$self{'verbose'}
100 0 1 unless (($len = $fh->sysread($data, 4, 0)) == 4)
105 0 1 if ($data eq "\000\cA\000\000") { }
111 0 0 if ($@)
128 0 1 if $$self{'trace'}
129 0 1 unless $sz == -1 or $sz == $len
136 0 1 unless ($data =~ /StartFontMetrics/ and $data =~ /EndFontMetrics/)
145 280 318 if /^StartKernData/ .. /^EndKernData/
146 58 260 if /^StartComposites/ .. /^EndComposites/
147 230 30 if /^StartCharMetrics/ .. /^EndCharMetrics/
148 1 29 if /^EndFontMetrics/
149 1 28 if (/^FontBBox\s+(-?\d+)\s+(-?\d+)\s+(-?\d+)\s+(-?\d+)\s*$/) { }
28 0 elsif (/(^\w+)\s+(.*)/) { }
155 11 17 if (defined $$self{$key}) { }
156 1 10 unless ref $$self{$key}
174 1 0 unless (defined $$self{'encodingvector'})
176 1 0 if (defined $$self{'encodingscheme'}) { }
177 1 0 if ($$self{'encodingscheme'} eq 'AdobeStandardEncoding') { }
0 0 elsif ($$self{'encodingscheme'} eq 'ISOLatin1Encoding') { }
201 230 368 if (/^StartCharMetrics/ .. /^EndCharMetrics/)
204 2 228 unless /^CH?\s+(-?\d+|<[0-9a-f]+>)\s*;/i
206 0 228 if $1 =~ /^<(.+)>$/
211 0 228 unless $dontencode or $ix < 0
214 1 367 if /^EndFontMetrics/
216 1 0 unless (exists $wx{'.notdef'})
219 0 1 if $$self{'verbose'}
231 0 0 if (/^StartCharMetrics/ .. /^EndCharMetrics/)
233 0 0 unless /^CH?\s/
239 0 0 if /^EndFontMetrics/
241 0 0 unless (exists $bbox{'.notdef'})
254 274 324 if (/^StartKern(Data|Pairs)/ .. /^EndKern(Data|Pairs)/)
255 3 271 unless /^KPX\s+(\S+)\s+(\S+)\s+(-?\d+)/
259 1 594 if /^EndFontMetrics/
261 0 1 unless %kern
262 0 1 if $$self{'verbose'}
270 1 0 if (ref $enc and UNIVERSAL::isa($enc, 'ARRAY') and scalar @$enc == 256) { }
0 0 elsif ($enc eq 'StandardEncoding') { }
0 0 elsif ($enc eq 'ISOLatin1Encoding') { }
0 0 elsif ($enc eq 'ISOLatin9Encoding') { }
298 0 3 if (scalar @{$$self{'encodingvector'};} <= 0)
306 0 3 if (defined $pt)
307 0 0 if $^W
318 0 195 if (scalar @{$$self{'encodingvector'};} <= 0)
327 851 195 if (defined $prev)
329 4 847 if defined $kw
333 0 195 if (defined $pt)
334 0 0 if $^W
343 0 0 wantarray ? :
0 22 unless length $string
347 0 22 if (scalar @{$$self{'encodingvector'};} <= 0)
351 17 5 defined $ext ? :
358 184 1143 if (defined $ext and $_ eq ' ')
360 184 0 if (@res) { }
362 0 184 if ($prev eq 'space') { }
384 0 1143 if $$self{'debug'}
388 184 959 if (defined $ext and $prev eq 'space') { }
943 16 elsif ($kw == 0) { }
394 22 921 if ($prev eq '.undef') { }
414 22 0 unless (defined $ext and $prev eq 'space')
420 0 22 wantarray ? :
428 0 0 if defined $char
434 0 0 unless $_ eq $glyph
444 0 1 if ($AUTOLOAD =~ /::DESTROY$/) { }