Branch Coverage

blib/lib/Pod/WinHtml.pm

Criterion	Covered	Total	%
branch	0	384	0.0

line	true	false	branch
126	0	0	if defined &Dos::UseLFN and Dos::UseLFN()
136	0	0	if $css
141	0	0	if (not @ARGV && $ARGV[0]) { }
142	0	0	unless $podfile
143	0	0	unless open POD, "<$podfile"
149	0	0	unless $htmlfile
150	0	0	if $htmlroot eq '/'
153	0	0	if $verbose
161	0	0	unless ($index)
162	0	0	if $verbose
167	0	0	unless open HTML, ">$htmlfile"
171	0	0	if ($title eq '')
174	0	0	if ($poddata[$i] =~ /^=head1\s*(NAME|\246W\272\331)/lm)
177	0	0	if ($title) = $para =~ /(\S+\s+-+.*\S)/ls
184	0	0	if (not $title and $podfile =~ /\.pod$/l)
193	0	0	if ($title) { }
202	0	0	if $htmlfile =~ /zh[-_]tw/l
206	0	0	$title ? :
232	0	0	unless $doindex
234	0	0	unless $doindex
236	0	0	if $doindex
239	0	0	if $verbose
243	0	0	if (/^(=.*)/ls) { }
246	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) { }
255	0	0	if @begin_stack and $begin_stack[-1] ne 'html'
257	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) { }
276	0	0	if $ignore
277	0	0	if @begin_stack and $begin_stack[-1] ne 'html'
295	0	0	if $verbose
303	0	0	if @_
361	0	0	unless $result
363	0	0	if defined $opt_help
366	0	0	if defined $opt_infile
367	0	0	if defined $opt_outfile
369	0	0	if defined $opt_podpath
370	0	0	if defined $opt_libpods
372	0	0	if $opt_verbose and defined $opt_flush
374	0	0	if defined $opt_flush
376	0	0	if defined $opt_htmlroot
377	0	0	if defined $opt_podroot
379	0	0	if defined $opt_index
380	0	0	if defined $opt_recurse
381	0	0	if defined $opt_title
382	0	0	defined $opt_verbose ? :
383	0	0	if defined $opt_netscape
385	0	0	if defined $opt_css
401	0	0	if $saved_cache_key and $this_cache_key eq $saved_cache_key
406	0	0	if (-f $dircache and -f $itemcache)
407	0	0	if $verbose
413	0	0	unless ($tests)
414	0	0	if $verbose
439	0	0	unless open CACHE, "<$itemcache"
446	0	0	if join(':', @$podpath) eq $_
451	0	0	if $podroot eq $_
454	0	0	if ($tests != 2)
459	0	0	if $verbose
466	0	0	if $verbose
467	0	0	unless open CACHE, "<$dircache"
475	0	0	if join(':', @$podpath) eq $_
480	0	0	if $podroot eq $_
483	0	0	if ($tests != 2)
488	0	0	if $verbose
509	0	0	unless ($append)
516	0	0	unless chdir $podroot
526	0	0	unless defined $pages{$libpod} and $pages{$libpod}
529	0	0	if ($pages{$libpod} =~ /([^:]*[^(\.pod|\.pm)]):/l) { }
	0	0	elsif ($pages{$libpod} =~ /([^:]*\.pod):/l or $pages{$libpod} =~ /([^:]*\.pm):/l) { }
532	0	0	unless opendir DIR, $dirname
539	0	0	unless open POD, "<$dirname/$pod"
550	0	0	if $1
556	0	0	unless open POD, "<$pod"
568	0	0	unless chdir $pwd
572	0	0	if $verbose
573	0	0	unless open CACHE, ">$itemcache"
584	0	0	if $verbose
585	0	0	unless open CACHE, ">$dircache"
610	0	0	unless opendir DIR, $dir
613	0	0	if (-d "$dir/$_" and $_ ne '.' and $_ ne '..') { }
	0	0	elsif (/\.pod$/l) { }
	0	0	elsif (/\.pm$/l) { }
614	0	0	unless defined $pages{$_}
619	0	0	unless defined $pages{$_}
624	0	0	unless defined $pages{$_}
632	0	0	if ($recurse)
657	0	0	if ($line =~ /^=(head)([1-6])\s+(.*)/l)
663	0	0	if ($which_head > $listdepth) { }
	0	0	elsif ($which_head < $listdepth) { }
702	0	0	if $pod
712	0	0	if (/^=item\s+(\w*)\s*.*$/ls)
713	0	0	if ($1 eq '*') { }
	0	0	elsif ($1 =~ /^\d+/l) { }
725	0	0	if $item
745	0	0	unless $listlevel or $top
769	0	0	unless $listlevel
771	0	0	unless $listlevel
773	0	0	unless $listlevel
785	0	0	if ($text =~ /\A\*/l) { }
	0	0	elsif ($text =~ /\A[\d#]+/l) { }
787	0	0	if ($need_preamble)
793	0	0	if ($text =~ /\A\*\s*(.+)\Z/ls)
795	0	0	if ($items_named{$1}++) { }
806	0	0	if ($need_preamble)
812	0	0	if ($text =~ /\A\d+\.?\s*(.+)\Z/ls)
814	0	0	if ($items_named{$1}++) { }
825	0	0	if ($need_preamble)
831	0	0	if ($text =~ /(\S+)/l)
833	0	0	if ($items_named{$1}++) { }
860	0	0	unless $listlevel
862	0	0	unless $listlevel
868	0	0	if defined $listend[$listlevel]
900	0	0	if ($whom =~ /^(pod2)?html$/il) { }
	0	0	elsif ($whom =~ /^illustration$/il) { }
905	0	0	if -r "$text$ext"
920	0	0	if ($whom =~ /^(pod2)?html$/l)
921	0	0	if $text
932	0	0	if ($begin_stack[-1] ne $whom)
949	0	0	if $ignore
955	0	0	if ($rest =~ /^\s+/l) { }
973	0	0	if (defined $pages{$2}) { }
	0	0	elsif (defined $pages{dosify($2)}) { }
1029	0	0	if ($rest =~ /[BCEIFLSZ]
1030	0	0	unless $rest =~ /\A  ([^<]*?)  ([BCEIFLSZ]?)  <  (.*)\Z/lsx
1048	0	0	if ($s3 eq '<' and $s2) { }
1049	0	0	$escapeQuotes ? :
1058	0	0	if ($rest =~ /\A([^<>]*[BCEIFLSZ]<)(.*)\Z/ls) { }
	0	0	elsif ($rest =~ /\A([^>]*>)(.*)\Z/ls) { }
1071	0	0	if ($match != 0)
1087	0	0	unless $tag eq 'L'
1090	0	0	if (not $tag or $tag eq ' ') { }
	0	0	elsif ($tag eq 'L') { }
	0	0	elsif ($tag eq 'I' or $tag eq 'B' or $tag eq 'F') { }
	0	0	elsif ($tag eq 'C') { }
	0	0	elsif ($tag eq 'E') { }
	0	0	elsif ($tag eq 'Z') { }
	0	0	elsif ($tag eq 'S') { }
	0	0	elsif ($tag eq 'X') { }
1116	0	0	$escapeQuotes ? :
1144	0	0	if $$quote
1147	0	0	$text =~ /"/l ? :
1148	0	0	if $$quote
1151	0	0	$text =~ /\A(\s*)/ls ? :
1152	0	0	$text =~ /(\s*)\Z/ls ? :
1162	0	0	if ($word =~ /^\w+\(/l) { }
	0	0	elsif ($word =~ /^[\$\@%&*]+\w+$/l) { }
	0	0	elsif ($word =~ m[^\w+://\w]l) { }
	0	0	elsif ($word =~ /[\w.-]+\@[\w-]+\.\w/l) { }
	0	0	elsif (not $word =~ /[a-z]/l and $word =~ /[A-Z]/l) { }
1191	0	0	if $word =~ /^\((.*?)\)(,?)/l
1192	0	0	if $word =~ /^<(.*?)>(,?)/l
1195	0	0	if $word =~ /["&<>]/l
1196	0	0	if $netscape
1198	0	0	if $word =~ /["&<>]/l
1206	0	0	if ($rest =~ /^(.{0,75})\s(.*?)$/lo or $rest =~ /^(\S*)\s(.*?)$/lo) { }
1216	0	0	if $rest
1238	0	0	if ($Is83)
1266	0	0	if s/^([^|]+[^\xa0-\xff])\|//l
1271	0	0	if not m[/]l and / /l
1274	0	0	if (m[^(.*?)/"?(.*?)"?$]l) { }
1289	0	0	if defined $pages{$page83}
1290	0	0	if ($page eq '') { }
	0	0	elsif ($page =~ /::/l or $page =~ /^\w+$/l) { }
	0	0	elsif ($str =~ m[(?:http|ftp|news|telnet|mailto)://]l) { }
	0	0	elsif (not defined $pages{$page}) { }
1292	0	0	unless defined $linktext
1294	0	0	$section ? :
	0	0	unless $alternate
1297	0	0	if ($section)
1299	0	0	if ($doindex) { }
	0	0	elsif ($hashead) { }
1311	0	0	if $str =~ m[(?:http|ftp)://]l
1315	0	0	unless defined $linktext
1317	0	0	$section ? :
	0	0	unless defined $linktext
1318	0	0	if $section ne ''
1322	0	0	if ($section ne '' and $pages{$page} =~ /([^:]*[^(\.pod|\.pm)]):/l) { }
1331	0	0	if ($pages{$page} =~ /([^:]*)\.pod:/l) { }
	0	0	elsif ($pages{$page} =~ /([^:]*)\.pm:/l) { }
1339	0	0	unless defined $linktext
1345	0	0	if $link =~ m[pod/]l
1348	0	0	if ($link) { }
1349	0	0	if ($hyperlink) { }
1392	0	0	if ($doref and defined $items{$s1}) { }
1393	0	0	$items{$s1} ? :
1397	0	0	if $s1 =~ /HREF="[^"]*\s[^"]*"/l
1470	0	0	if ($compact)