Branch Coverage

blib/lib/PDF/API3/Compat/API2/Basic/PDF/Dict.pm
Criterion Covered Total %
branch 1 94 1.0


line true false branch
43 1 0 -d '/tmp' ? :
80 0 0 if ref $class
103 0 0 if (defined $$self{' stream'} or defined $$self{' streamfile'} or defined $$self{' streamloc'})
105 0 0 if ($$self{'Filter'} and $$self{' nofilt'}) { }
0 0 elsif ($$self{'Filter'} or not defined $$self{' stream'}) { }
111 0 0 unless defined $$self{'Length'}
112 0 0 unless $$self{'Length'}->is_obj($pdf)
126 0 0 if (defined $$self{$_})
135 0 0 if $key =~ /^[\s\-]/o or $specs{$key}
136 0 0 if ($val || '') eq ''
145 0 0 if (defined $$self{' streamloc'} and not defined $$self{' stream'})
152 0 0 if (not $$self{' nofilt'} and defined $$self{' stream'} || defined $$self{' streamfile'} and defined $$self{'Filter'})
162 0 0 if ($temp eq 'LZWDecode') { }
0 0 elsif ($temp eq 'FlateDecode') { }
164 0 0 if ($hasflate < -1)
176 0 0 if $hasflate > -1
179 0 0 if (defined $$self{' stream'}) { }
0 0 elsif (defined $$self{' streamfile'}) { }
184 0 0 unless ($$self{' nofilt'})
194 0 0 unless open DICTFH, $$self{' streamfile'}
201 0 0 unless ($$self{' nofilt'})
209 0 0 unless ($$self{' nofilt'})
219 0 0 if (defined $$self{' stream'} or defined $$self{' streamfile'})
222 0 0 if ($$self{'Length'}{'val'} != $len)
225 0 0 if $$self{'Length'}->is_obj($pdf)
243 0 0 if (defined $$self{$_})
252 0 0 if $key =~ /^[\s\-]/o or $specs{$key}
253 0 0 if $val eq ''
262 0 0 if (defined $$self{' streamloc'} and not defined $$self{' stream'})
269 0 0 if (not $$self{' nofilt'} and defined $$self{' stream'} || defined $$self{' streamfile'} and defined $$self{'Filter'})
279 0 0 if ($temp eq 'LZWDecode') { }
0 0 elsif ($temp eq 'FlateDecode') { }
281 0 0 if ($hasflate < -1)
293 0 0 if $hasflate > -1
296 0 0 if (defined $$self{' stream'}) { }
0 0 elsif (defined $$self{' streamfile'}) { }
301 0 0 if ($$self{' nofilt'})
311 0 0 unless open $DICTFH, $$self{' streamfile'}
316 0 0 if ($$self{' nofilt'})
324 0 0 if ($$self{' nofilt'})
357 0 0 if (defined $$self{'Filter'})
367 0 0 if (defined $$self{' streamfile'})
375 0 0 if ($i + 4096 > $len) { }
385 0 0 if (not $force_memory || defined $$self{' streamfile'} and length($dat) * 2 > $PDF::API3::Compat::API2::Basic::PDF::Dict::mincache)
387 0 0 unless open DICTFH, ">$PDF::API3::Compat::API2::Basic::PDF::Dict::tempbase"
394 0 0 if (defined $$self{' streamfile'}) { }
400 0 0 if defined $$self{' streamfile'}