Branch Coverage

blib/lib/DCLPod/Html.pm

Criterion	Covered	Total	%
branch	0	518	0.0

line	true	false	branch
313	0	0	if (${$dataref;}[$i] =~ /^\s+$/lm and not $$dataref[$i] =~ /^\s/l)
328	0	0	if defined &Dos::UseLFN and Dos::UseLFN()
338	0	0	if defined $Backlink
342	0	0	if (not @ARGV && $ARGV[0]) { }
343	0	0	unless $Podfile
344	0	0	unless open POD, "<$Podfile"
350	0	0	unless $Htmlfile
351	0	0	if $Htmlroot eq '/'
353	0	0	if ($Htmlroot eq '' and defined $Htmldir and $Htmldir ne '' and substr($Htmlfile, 0, length $Htmldir) eq $Htmldir)
367	0	0	if $Verbose
374	0	0	if (/\r/l)
375	0	0	if (/\r\n/l) { }
378	0	0	/\n\n/l ? :
383	0	0	/\n\n/l ? :
395	0	0	unless ($index)
396	0	0	if $Verbose
400	0	0	unless open HTML, ">$Htmlfile"
404	0	0	if ($Title eq '')
407	0	0	if ($poddata[$i] =~ /^=head1\s*NAME\b/lm)
410	0	0	if ($Title) = $para =~ /(\S+\s+-+.*\S)/ls
417	0	0	if (not $Title and $Podfile =~ /\.pod\z/l)
420	0	0	if ($Title) = $poddata[$i] =~ /^=head[12]\s*(.*)/l
422	0	0	if $Verbose and $Title
425	0	0	if ($Title) { }
428	0	0	unless $Quiet
430	0	0	$Podfile eq '-' ? :
431	0	0	if $Verbose
439	0	0	if ($Css)
447	0	0	$Header ? :
479	0	0	unless $Doindex
481	0	0	unless $Doindex
483	0	0	if $Doindex and $index
488	0	0	if $Verbose
494	0	0	if (/^(=.*)/ls) { }
499	0	0	if (/^=begin\s+(\S+)\s*(.*)/ils) { }
	0	0	elsif (/^=end\s+(\S+)\s*(.*)/ils) { }
	0	0	elsif (/^=cut/l) { }
	0	0	elsif (/^=pod/l) { }
508	0	0	if @Begin_Stack and $Begin_Stack[-1] ne 'html'
510	0	0	if (/^=(head[1-6])\s+(.*\S)/ls) { }
	0	0	elsif (/^=item\s*(.*\S)?/lms) { }
	0	0	elsif (/^=over\s*(.*)/l) { }
	0	0	elsif (/^=back/l) { }
	0	0	elsif (/^=for\s+(\S+)\s*(.*)/ils) { }
530	0	0	if $DCLPod::Html::Ignore
531	0	0	if @Begin_Stack and $Begin_Stack[-1] ne 'html'
532	0	0	if @Begin_Stack and $Begin_Stack[-1] eq 'html'
533	0	0	if $need_dd
535	0	0	if ($text =~ /\A\s+/l) { }
544	0	0	if ($text =~ /\t/l)
546	0	0	if (@lines > 1)
549	0	0	if ($line =~ /\S/l and not $line =~ /\t/l)
551	0	0	if $all == 0
554	0	0	if ($all > 0)
564	0	0	if ($after_item) { }
571	0	0	if $need_dd
580	0	0	if $Doindex and $index and $Backlink
593	0	0	if $Verbose
600	0	0	if @_
647	0	0	if $DCLPod::Html::Config{'pod2html'}
669	0	0	unless $result
671	0	0	if defined $opt_help
674	0	0	if defined $opt_podpath
675	0	0	if defined $opt_libpods
677	0	0	if defined $opt_backlink
678	0	0	if defined $opt_cachedir
679	0	0	if defined $opt_css
680	0	0	if defined $opt_header
681	0	0	if defined $opt_htmldir
682	0	0	if defined $opt_htmlroot
683	0	0	if defined $opt_index
684	0	0	if defined $opt_infile
685	0	0	if defined $opt_outfile
686	0	0	if defined $opt_podroot
687	0	0	if defined $opt_quiet
688	0	0	if defined $opt_recurse
689	0	0	if defined $opt_title
690	0	0	if defined $opt_verbose
692	0	0	if $opt_verbose and defined $opt_flush
696	0	0	if (defined $opt_flush)
714	0	0	if $Saved_Cache_Key and $this_cache_key eq $Saved_Cache_Key
719	0	0	if (-f $dircache and -f $itemcache)
720	0	0	if $Verbose
726	0	0	unless ($tests)
727	0	0	if $Verbose
751	0	0	unless open CACHE, "<$itemcache"
758	0	0	if join(':', @$podpath) eq $_
763	0	0	if $podroot eq $_
766	0	0	if ($tests != 2)
771	0	0	if $Verbose
778	0	0	if $Verbose
779	0	0	unless open CACHE, "<$dircache"
787	0	0	if join(':', @$podpath) eq $_
792	0	0	if $podroot eq $_
795	0	0	if ($tests != 2)
800	0	0	if $Verbose
821	0	0	unless ($append)
828	0	0	unless chdir $podroot
838	0	0	unless defined $Pages{$libpod} and $Pages{$libpod}
843	0	0	if ($Pages{$libpod} =~ /([^:]*(?
	0	0	elsif ($Pages{$libpod} =~ /([^:]*\.pod):/l or $Pages{$libpod} =~ /([^:]*\.pm):/l) { }
846	0	0	unless opendir DIR, $dirname
853	0	0	unless open POD, "<$dirname/$pod"
872	0	0	unless open POD, "<$pod"
885	0	0	unless chdir $pwd
889	0	0	if $Verbose
890	0	0	unless open CACHE, ">$Itemcache"
901	0	0	if $Verbose
902	0	0	unless open CACHE, ">$Dircache"
927	0	0	unless opendir DIR, $dir
930	0	0	if (-d "$dir/$_" and $_ ne '.' and $_ ne '..') { }
	0	0	elsif (/\.pod\z/l) { }
	0	0	elsif (/\.html\z/l) { }
	0	0	elsif (/\.pm\z/l) { }
931	0	0	unless defined $Pages{$_}
936	0	0	unless defined $Pages{$_}
941	0	0	unless defined $Pages{$_}
945	0	0	unless defined $Pages{$_}
953	0	0	if ($recurse)
976	0	0	if ($line =~ /^=(head)([1-6])\s+(.*)/l)
985	0	0	if ($which_head > $listdepth) { }
	0	0	elsif ($which_head < $listdepth) { }
1021	0	0	if $pod
1028	0	0	if ($txt =~ /\A=item\s+\*\s*(.*)\Z/ls) { }
	0	0	elsif ($txt =~ /\A=item\s+(?>\d+\.?)\s*(.*)\Z/ls) { }
	0	0	elsif ($txt =~ /\A=item\s+(.*)\Z/ls) { }
1029	0	0	unless $1
1039	0	0	if $fid
1053	0	0	if ($Listlevel)
1061	0	0	if ($level == 1 and not $Top) { }
1062	0	0	if $hasindex and $Backlink
1089	0	0	if ($Items_Named{$item}++) { }
1102	0	0	if ($Items_Seen[$Listlevel]++ == 0)
1106	0	0	$tag eq 'dl' ? :
1121	0	0	if ($Listlevel == 0)
1127	0	0	if ($After_Lpar)
1138	0	0	if ($text =~ /\A\*/l) { }
	0	0	elsif ($text =~ /\A\d+/l) { }
1140	0	0	if ($text =~ /\A\*\s+(.+)\Z/ls)
1148	0	0	if ($text =~ /\A(?>\d+\.?)\s*(.+)\Z/ls)
1156	0	0	if ($text =~ /\A(.+)\Z/ls)
1161	0	0	if $emitted
1180	0	0	if ($Listlevel == 0)
1189	0	0	if (defined $Listend[$Listlevel])
1190	0	0	if $After_Lpar
1222	0	0	if ($whom =~ /^(pod2)?html$/il) { }
	0	0	elsif ($whom =~ /^illustration$/il) { }
1227	0	0	if -r "$text$ext"
1242	0	0	if ($whom =~ /^(pod2)?html$/l)
1243	0	0	if $text
1254	0	0	if ($Begin_Stack[-1] ne $whom)
1266	0	0	if $DCLPod::Html::Ignore
1285	0	0	if (defined $Pages{$2}) { }
	0	0	elsif (defined $Pages{dosify($2)}) { }
1297	0	0	if ($Htmlfileurl ne '') { }
1305	0	0	if $old_url =~ m[^\/]l
1391	0	0	if ($$quote and $text =~ s/"/''/ls)
1395	0	0	if $text =~ s/"/``/ls
1398	0	0	$text =~ s/\A(\s+)//ls ? :
1399	0	0	$text =~ s/(\s+)\Z//ls ? :
1407	0	0	if $word =~ /^\s*$/l
1409	0	0	if ($notinIS and $word =~ /^(\w+)\((.*)\)$/l) { }
	0	0	elsif ($word =~ m[^\w+://\w]l) { }
	0	0	elsif ($word =~ /[\w.-]+\@[\w-]+\.\w/l) { }
1413	0	0	if ($args =~ /^\d+$/l)
1415	0	0	if (defined $url)
1435	0	0	if $word =~ /^\((.*?)\)(,?)/l
1436	0	0	if $word =~ /^<(.*?)>(,?)/l
1439	0	0	if $word =~ /["&<>]/l
1455	0	0	$_[0] ? :
1456	0	0	defined $_ && s/\s+$//l ? :
1459	0	0	if $DCLPod::Html::Ignore
1469	0	0	unless (defined $func)
1474	0	0	if ($func eq 'B') { }
	0	0	elsif ($func eq 'C') { }
	0	0	elsif ($func eq 'E') { }
	0	0	elsif ($func eq 'F') { }
	0	0	elsif ($func eq 'I') { }
	0	0	elsif ($func eq 'L') { }
	0	0	elsif ($func eq 'S') { }
	0	0	elsif ($func eq 'X') { }
	0	0	elsif ($func eq 'Z') { }
1515	0	0	if ($par =~ m[^\w+://]ls)
1519	0	0	if ($par =~ /^C<(.*)>$/l)
1528	0	0	if ($par =~ s/^([^|]+)\|//l)
1538	0	0	if ($par =~ m[^([^/]+?)/(?!")(.*?)$]l) { }
	0	0	elsif ($par =~ m[^(.*?)/"?(.*?)"?$]l) { }
	0	0	elsif ($par =~ /\s/l) { }
1563	0	0	if (defined $ident)
1566	0	0	if ($url)
1567	0	0	unless (defined $linktext)
1569	0	0	if $ident and $page
1570	0	0	if $page
1581	0	0	if ($url)
1582	0	0	unless (defined $linktext)
1584	0	0	if $section and $page
1585	0	0	if $page
1591	0	0	if ($section) { }
1598	0	0	if ($url)
1599	0	0	unless (defined $linktext)
1601	0	0	if $ident and $page
1602	0	0	if $page
1609	0	0	unless defined $linktext
1615	0	0	if (defined $url) { }
1632	0	0	unless $$rstr =~ s/^>//l
1641	0	0	if not $3 and $lev == 1
1642	0	0	$lev == 1 ? :
1643	0	0	if not $3 and $lev > 1
1644	0	0	if ($3)
1648	0	0	if ($lev == 1) { }
1667	0	0	if (not $3) { }
1669	0	0	unless @closing
1685	0	0	unless defined $args
1692	0	0	if (defined $url and !defined($EmittedItem) || $EmittedItem ne $fid) { }
1723	0	0	if $^O eq 'VMS'
1724	0	0	if ($Is83)
1740	0	0	if (not defined $Pages{$page} and defined $Sections{$page})
1747	0	0	if defined $Pages{$page83}
1748	0	0	if ($page eq '') { }
	0	0	elsif ($page =~ /::/l) { }
	0	0	elsif (not defined $Pages{$page}) { }
1758	0	0	if (defined $Pages{$page_name} and $Pages{$page_name} =~ /([^:]*$page)\.(?:pod|pm):/l) { }
1776	0	0	if $section
1780	0	0	if $section ne ''
1786	0	0	if ($section ne '' and $Pages{$page} =~ /([^:]*(?
1794	0	0	if $section
1798	0	0	if ($Pages{$page} =~ /([^:]*)\.pod:/l) { }
	0	0	elsif ($Pages{$page} =~ /([^:]*)\.pm:/l) { }
1808	0	0	if ($link) { }
1815	0	0	if ($Htmlfileurl ne '') { }
1816	0	0	if $link =~ m[^/]ls
1846	0	0	if ($dest ne '')
1850	0	0	if ($rel_path ne '' and substr($rel_path, -1) ne '/' and substr($dest_file, 0, 1) ne '#') { }
1872	0	0	if (defined $page) { }
1879	0	0	if ($base ne "$page.html")
1886	0	0	if (defined $fid)
1887	0	0	if (exists $Local_Items{$fid}) { }
1897	0	0	if (defined $page)
1898	0	0	if ($page) { }
1899	0	0	if (exists $Pages{$page} and $Pages{$page} =~ /([^:.]*)\.[^:]*:/l)
1906	0	0	if ($Htmlfileurl ne '') { }
1916	0	0	if $url =~ /"[^"]*\s[^"]*"/l
1987	0	0	if (ref $_[0]) { }
1999	0	0	unless defined $$rstr
2000	0	0	if (not defined $func) { }
	0	0	elsif ($func eq 'E') { }
	0	0	elsif ($func eq 'X') { }
	0	0	elsif ($func eq 'Z') { }
2023	0	0	unless $3
2042	0	0	if ($text) { }
2044	0	0	if $text =~ /(\w+)\s*\(/l
2045	0	0	if $text =~ /->\s*(\w+)\s*\(?/l
2048	0	0	if $text =~ /^([$@%*]\S+)/l
2051	0	0	if $text =~ m[^(\w+/).*/\w*$]l
2054	0	0	if $text =~ /^(\w+)\s*{.*}$/l
2058	0	0	if $text =~ m[^([a-z\d]+)(\s+[A-Z\d,/& ]+)?$]l
2059	0	0	if $text =~ m[^([a-z\d]+)\s+Module(\s+[A-Z\d,/& ]+)?$]l
2064	0	0	defined $HC[ord $1] ? :
2078	0	0	unless ($url =~ s[^(http:[-\w/#~:.+=&%\@!]+)(\?.*)$][$1]il)