Branch Coverage

lib/PostScript/Resources.pm
Criterion Covered Total %
branch 41 104 39.4


line true false branch
76 0 1 if $debug
78 1 0 if (-d $rsc) { }
79 0 1 if $debug
86 0 1 if (-f $fn)
87 0 0 if $debug
90 0 0 if ($@)
91 0 0 if $error eq 'die'
92 0 0 if $error eq 'warn'
99 1 0 unless ($exclusive)
106 0 2 if $file eq 'PSres.upr'
109 0 2 if $debug
112 0 2 if ($@)
113 0 0 if $error eq 'die'
114 0 0 if $error eq 'warn'
125 0 0 if $debug
128 0 0 if ($@)
129 0 0 if $error eq 'die'
130 0 0 if $error eq 'warn'
141 1 0 if defined($font = $$self{'FontAFM'}{$font})
148 1 0 if defined($font = $$self{'FontOutline'}{$font})
157 0 2 if $name =~ /^=(.*)$/
158 0 2 if 'File::Spec'->file_name_is_absolute($name)
173 0 2 unless $fh->open($fn)
174 0 2 if $verbose
178 0 2 unless $line =~ /^PS-Resources-(Exclusive-)?([\d.]+)/
229 0 4 if ($checkdir and $section =~ m[^/(.*)])
235 4 0 defined &{"_load$section";} ? :
238 0 4 if $fh->eof or not &$loader($self)
248 0 2 if $@
256 2 20 if $fh->eof
258 0 20 if ($line =~ /^(.*)\\$/)
262 0 20 if $line =~ /^(.*)%/
264 0 20 unless $line =~ /\S/
273 0 2 if $trace
276 1 1 unless defined($afm = $$self{'FontAFM'})
282 2 4 if $line =~ /^\.$/
285 4 0 if ($line =~ /^([^=]+)=(.*)$/)
286 4 0 unless $$afm{$1}
289 0 0 unless $error eq 'ignore'
297 0 0 if $trace
300 0 0 unless defined($fam = $$self{'FontFamily'})
305 0 0 if $line =~ /^\.$/
308 0 0 if ($line =~ /^([^=]+)==?(.*)$/)
312 0 0 unless $error eq 'ignore'
320 0 2 if $trace
323 1 1 unless defined($pfa = $$self{'FontOutline'})
329 2 2 if $line =~ /^\.$/
332 2 0 if ($line =~ /^([^=]+)=(.*)$/)
333 2 0 unless $$pfa{$1}
336 0 0 unless $error eq 'ignore'
345 0 2 if $trace
349 2 4 if $line =~ /^\.$/