Branch Coverage

blib/lib/PDF/Builder/NamedDestination.pm
Criterion Covered Total %
branch 30 54 55.5


line true false branch
106 1 0 if $pdf->isa("PDF::Builder")
110 0 1 if (@_)
159 1 23 if (defined $opts{$_})
162 0 1 if (ref $opts{$_} eq 'ARRAY') { }
171 2 1 unless (defined $location)
176 1 2 if ($location eq "fit" or $location eq "fitb")
182 0 3 if (@arglist > $arg_counts{$location}[0]) { }
0 3 elsif (@arglist < $arg_counts{$location}[0]) { }
189 2 1 if (ref $page ne '') { }
1 0 elsif ($page =~ /^\d+$/) { }
208 0 6 defined $_ ? :
313 0 0 if ($pnum =~ /^\d+$/) { }
403 4 1 unless (@args)
420 0 1 if ($args[0] =~ /^-(.*)$/)
427 1 6 if ($args[0] eq $keylist[$i])
433 1 0 if ($match > -1)
437 0 1 if (ref $args[1] eq 'ARRAY' or $arg_counts{$location} == 1) { }
0 1 elsif ($arg_counts{$location} == 3) { }
0 1 elsif ($arg_counts{$location} == 4) { }
1 0 elsif ($arg_counts{$location} == 0) { }
448 0 0 if (ref $vals[$i] eq "")
461 0 0 if (ref $vals[$i] eq "")
469 1 0 if ($num_args % 2) { }
481 0 1 if (scalar(@args) % 2)
485 0 1 if (ref $args[$i] ne "")
488 0 1 if (ref $args[$i + 1] ne "" and ref $args[$i + 1] ne "ARRAY")
492 0 1 if ($args[$i] =~ /^-(.*)$/)