Branch Coverage

blib/lib/Pod/L10N/Html.pm
Criterion Covered Total %
branch 131 184 71.2


line true false branch
106 0 0 if (ref $tree eq '') { }
0 0 elsif (not $tree->[0] eq 'X' && $parser->nix_X_codes) { }
179 27 1 if $Htmlroot eq "/"
182 10 17 if ($Htmlroot eq "" and defined $Htmldir and $Htmldir ne "" and substr($Htmlfile, 0, length $Htmldir) eq $Htmldir)
198 25 3 unless (get_cache($Dircache, \@Podpath, $Podroot, $Recurse))
201 0 25 unless chdir $Podroot
210 0 25 unless chdir $pwd
213 1 24 if $Verbose
214 0 25 unless open my $cache, ">", $Dircache
220 0 468 if ($_updirs_only)
231 0 25 unless close $cache
235 0 28 if (@ARGV and $ARGV[0]) { }
236 28 0 if ($Podfile and $Podfile ne '-') { }
247 25 3 unless (defined $encoding)
257 1 27 if $Verbose
260 21 7 unless (defined $Title)
261 18 2 if ($podtree->[0] eq "Document" and ref $podtree->[2] eq "ARRAY" and $podtree->[2][0] eq "head1" and @{$podtree->[2];} == 3 and ref $podtree->[2][2] eq "" and $podtree->[2][2] eq "NAME" and ref $podtree->[3] eq "ARRAY" and $podtree->[3][0] eq "Para" and @{$podtree->[3];} >= 3 and not grep({ref $_ ne "";} @{$$podtree[3];}[2 .. $#{$$podtree[3];}]) and @$podtree == 4 || ref $podtree->[4] eq 'ARRAY' && $podtree->[4][0] eq 'head1')
302 5 23 $Backlink ? :
307 4 24 if ($Css)
315 5 23 $Header ? :
350 0 28 unless $Htmlfile
352 28 0 if ($Htmlfile and $Htmlfile ne '-') { }
353 0 28 unless open $fhout, ">", $Htmlfile
360 0 28 unless close $fhout
361 28 0 unless $Htmlfile eq "-"
368 0 0 if @_
417 0 28 if $Pod::L10N::Html::Config{'pod2html'}
438 0 28 unless $result
440 0 28 if defined $opt_help
443 25 3 if defined $opt_podpath
445 5 23 if defined $opt_backlink
446 1 27 if defined $opt_cachedir
447 4 24 if defined $opt_css
448 5 23 if defined $opt_header
449 14 14 if defined $opt_htmldir
450 23 5 if defined $opt_htmlroot
451 3 25 if defined $opt_index
452 28 0 if defined $opt_infile
453 28 0 if defined $opt_outfile
454 1 27 if defined $opt_poderrors
455 24 4 if defined $opt_podroot
456 19 9 if defined $opt_quiet
457 3 25 if defined $opt_recurse
458 7 21 if defined $opt_title
459 1 27 if defined $opt_verbose
461 0 28 if $opt_verbose and defined $opt_flush
464 0 28 if (defined $opt_flush)
480 2 26 if $Saved_Cache_Key and $this_cache_key eq $Saved_Cache_Key
486 1 25 if (-f $dircache)
487 0 1 if $Verbose
508 0 1 if $Verbose
509 0 1 unless open my $cachefh, "<", $dircache
516 1 0 if join(":", @$podpath) eq $_
521 1 0 if $podroot eq $_
524 0 1 if ($tests != 2)
529 0 1 if $Verbose
592 18 404 $Podroot eq 'File::Spec'->curdir ? :
606 45 602 unless $full_path
607 27 575 if $full_path eq "/"
610 0 575 $dirs eq 'File::Spec'->curdir ? :
613 0 575 if (defined $vol and $vol)
614 0 0 if $^O eq "VMS"
615 0 0 if $^O eq "MSWin32"
617 0 0 if ($dirs[0]) { }
624 126 449 if "File::Spec"->file_name_is_absolute($full_path)
625 20 555 unless scalar @dirs
628 0 555 if $^O eq "MSWin32"
629 0 555 if $^O eq "VMS"
643 3 351 if ($o =~ /^=encoding (.+)/l)
648 141 210 if ($o =~ /^=/l) { }
649 4 137 if (defined $t) { }
656 0 210 if (defined $t) { }
697 76 83 if $not_unique
706 0 118 unless defined $to or defined $section
707 76 42 if (defined $section) { }
709 47 29 unless defined $to
715 44 27 if (exists $self->pages->{$to}) { }
722 5 593 if $modname =~ /::\Q$to\E\z/l
725 22 5 if ($#matches == -1) { }
5 0 elsif ($#matches == 0) { }
726 0 22 unless $self->quiet
731 0 5 unless $self->quiet
736 0 0 unless $self->quiet
749 23 26 if ($self->htmlfileurl ne "")
779 23 0 if ($dest ne "")
783 23 0 if ($rel_path ne '' and substr($rel_path, -1) ne '/') { }
796 67 0 unless defined $add
800 65 2 unless (defined $trans)
805 6 61 $_[0]->backlink && $h - $add == 0 ? :
815 14 2 unless (defined $trans)
820 16 0 $_[0]{'anchor_items'} ? :
828 6 10 if ($_[0]{'in_dd'}[$_[0]{'dl_level'}])