Branch Coverage

blib/lib/PDF/API3/Compat/API2/Basic/PDF/File.pm
Criterion Covered Total %
branch 0 212 0.0


line true false branch
247 0 0 unless ($root)
277 0 0 if (ref $fname) { }
280 0 0 if ($update)
289 0 0 unless -f $fname
292 0 0 if ($update)
302 0 0 unless ($buf =~ /^\%PDF\-1\.\d+\s*$cr/mo)
312 0 0 if ($buf =~ /startxref($cr|\s*)\d+($cr|\s*)\%\%eof.*?/io)
317 0 0 unless ($buf =~ /startxref[^\d]+([0-9]+)($cr|\s*)\%\%eof.*?/io)
356 0 0 unless ref $self
361 0 0 if (UNIVERSAL::can($item, 'release')) { }
0 0 elsif (ref $item eq 'ARRAY') { }
0 0 elsif (ref $item eq 'HASH') { }
392 0 0 unless $$self{' update'}
406 0 0 if (defined $$self{' newroot'}) { }
413 0 0 unless defined $$tdict{$t}
455 0 0 if (ref $fname) { }
482 0 0 if defined $$self{'Info'}
483 0 0 defined $$self{' newroot'} && $$self{' newroot'} ne '' ? :
490 0 0 if $$self{' loc'}
491 0 0 if ($$self{' update'})
494 0 0 unless defined $$tdict{$t}
502 0 0 if $^O eq 'MacOS' and not ref $$self{' fname'}
527 0 0 if ($str =~ /^<
0 0 elsif ($str =~ /^([0-9]+)$ws_char+([0-9]+)$ws_char+R/so) { }
0 0 elsif ($str =~ /^([0-9]+)$ws_char+([0-9]+)$ws_char+obj/so) { }
0 0 elsif ($str =~ m[^/($reg_char+)]so) { }
0 0 elsif ($str =~ /^\(/o) { }
0 0 elsif ($str =~ /^
0 0 elsif ($str =~ /^\[/o) { }
0 0 elsif ($str =~ /^(true|false)$irreg_char/o) { }
0 0 elsif ($str =~ /^([+-.0-9]+)$irreg_char/o) { }
0 0 elsif ($str =~ /^null$irreg_char/o) { }
535 0 0 if ($str =~ s[^/($reg_char+)][]o) { }
0 0 elsif ($str =~ s[^/$ws_char+][]o) { }
0 0 elsif ($str =~ s[^//][/]o) { }
561 0 0 if ($str =~ s/^stream(?:(?:\015\012)|\012|\015)//o and $$res{'Length'}->val != 0)
567 0 0 unless ($opts{'nostreams'})
569 0 0 if ($k > length $str) { }
588 0 0 if defined $$res{'Type'} and defined $types{$$res{'Type'}->val}
598 0 0 unless ($res = $self->test_obj($k, $value))
617 0 0 if ($res = $self->test_obj($k, $value)) { }
649 0 0 if ($str =~ /^(\\[()])/o) { }
0 0 elsif ($str =~ /^\)/o) { }
0 0 elsif ($str =~ /^\(/o) { }
663 0 0 if ($nested == 0)
679 0 0 unless $fh->read($str, 255, length $str)
749 0 0 unless $objind eq $res
788 0 0 if (defined $$self{' free'} and scalar @{$$self{' free'};} > 0)
791 0 0 if (defined $base) { }
808 0 0 defined $i ? :
812 0 0 unless (defined $self->locate_obj($i, $ng))
814 0 0 if (defined $base) { }
834 0 0 if (defined $base) { }
864 0 0 unless (exists $$self{' outlist_cache'}{$obj})
905 0 0 if $$self{' objcache'}{join $;, $$objind{' objnum'}, $$objind{' objgen'}} eq $objind
928 0 0 unless defined($fh = $$self{' OUTFILE'})
931 0 0 unless scalar @objs > 0
934 0 0 unless $objind->is_obj($self)
938 0 0 if ($$self{' outlist'}[$i] eq $objind)
944 0 0 if $j < 0
947 0 0 if grep {$_ eq $objind;} @{$$self{' free'};}
949 0 0 if $$objind{' comments'}
958 0 0 unless (exists $$self{' printed_cache'}{$objind})
980 0 0 unless defined $$out{$i}
988 0 0 unless $nt eq 'n'
990 0 0 if ($nl < $minl or $mini == 0)
996 0 0 unless ($obj = $self->test_obj($i, $ng))
1006 0 0 defined $filt ? :
1007 0 0 unless not $res or $res->is_obj($out)
1014 0 0 if ($obj->isa('PDF::API3::Compat::API2::Basic::PDF::Dict') and $$obj{'Linearized'})
1042 0 0 if (ref $$tdict{' xref'}{$num})
1045 0 0 if ($$ref[1] == $gen)
1047 0 0 if $$ref[2] eq 'n'
1068 0 0 if $readDebug
1069 0 0 if ($instream) { }
1075 0 0 if $readDebug
1082 0 0 if $readDebug
1088 0 0 if $readDebug
1101 0 0 if $readDebug
1102 0 0 if ($instream) { }
1108 0 0 if $readDebug
1115 0 0 if $readDebug
1122 0 0 if $readDebug
1194 0 0 unless ($buf =~ /^xref$cr/io)
1218 0 0 unless exists $$xlist{$xmin}
1223 0 0 unless ($buf =~ /^\s*trailer\b/io)
1231 0 0 if $xmin > $$self{' maxobj'}
1232 0 0 if defined $$tdict{'Prev'} and $$tdict{'Prev'}->val != 0
1234 0 0 unless defined $$tdict{' prev'}
1273 0 0 unless ($update)
1305 0 0 if ($i > $#xreflist or $$self{' objects'}{$xreflist[$i]->uid}[0] != $j + 1) { }
1307 0 0 $first == -1 ? :
1308 0 0 if ($first == -1)
1310 0 0 defined $freelist[$k] ? :
1316 0 0 if (defined $freelist[$k] and defined $xref and "$freelist[$k]" eq "$xref") { }
1319 0 0 defined $freelist[$k] ? :
1332 0 0 if $i < scalar @xreflist
1370 0 0 if $$self{' loc'}
1373 0 0 if (defined $$self{' newroot'}) { }
1380 0 0 unless defined $$tdict{$t}
1392 0 0 unless scalar @objs > 0
1395 0 0 unless $objind->is_obj($self)
1399 0 0 if ($$self{' outlist'}[$i] eq $objind)
1405 0 0 if $j < 0
1408 0 0 if grep {$_ eq $objind;} @{$$self{' free'};}
1417 0 0 unless (exists $$self{' printed_cache'}{$objind})