Branch Coverage

blib/lib/CGI/pWiki.pm

Criterion	Covered	Total	%
branch	1	170	0.5

line	true	false	branch
254	0	1	$#_ == 0 ? :
268	0	0	if ($html ne '') { }
282	0	0	if m[]i
283	0	0	if m[]*>(.+)]is
310	0	0	if /^[ \t\n]*$/
311	0	0	unless /^\n/
313	0	0	if /^(\n=[^\n]+)+$/
315	0	0	if /^(\n[ \t]*[*-][^\n]+)+$/
317	0	0	if /^(\n[ \t]*[|][^\n]+[|][ \t]*)+$/
319	0	0	if /^(\n[ \t]+[^\n]+)+$/
356	0	0	unless $$self{'rm'} eq 'POST'
358	0	0	if $$self{'ru'} eq 'unknown'
360	0	0	unless -w $dir
362	0	0	if -r $$self{'pt'} and not -w $$self{'pt'}
364	0	0	if $$self{'pt'} =~ m[/[.]]
366	0	0	unless $$self{'pt'} =~ m[^[a-zA-Z0-9_./-]+$]
376	0	0	if $_
389	0	0	if $_
391	0	0	if ($$self{'VAL'}{'text'}) { }
395	0	0	if (-f $$self{'pt'}) { }
396	0	0	unless -f $$self{'pt'} . '~'
412	0	0	if $want eq ''
422	0	0	if $str =~ /^[ \t\r\n]*$/
424	0	0	unless $$hits{$file} =~ /$qm/
439	0	0	if $matches
440	0	0	unless $matches
455	0	0	unless -r $old
480	0	0	if ($ENV{'PATH_INFO'}) { }
487	0	0	if ($ENV{'QUERY_STRING'}) { }
494	0	0	if ($ENV{'PATH_TRANSLATED'}) { }
501	0	0	if ($$self{'rm'} eq 'POST')
504	0	0	if $contlen < 1
509	0	0	if $readlen != $contlen
518	0	0	defined $val ? :
523	0	0	if ($$self{'VAL'}{'path'})
527	0	0	if $$self{'VAL'}{'query'}
530	0	0	unless $$self{'pi'}
531	0	0	unless $$self{'qs'}
532	0	0	unless $$self{'pt'}
533	0	0	unless chdir $$self{'dr'}
553	0	0	if $$self{'error'}
555	0	0	if $$self{'qs'} =~ /^error/
556	0	0	if $$self{'qs'} =~ /^search=/
557	0	0	if $$self{'qs'} eq 'diff'
558	0	0	if $$self{'qs'} eq 'edit'
559	0	0	if $$self{'qs'} eq 'save'
572	0	0	unless -r $$self{'pt'}
573	0	0	if $$self{'pt'} =~ /\.html$/
574	0	0	if $$self{'pt'} =~ /\.htm$/
575	0	0	if $$self{'pt'} =~ /\.wiki$/
576	0	0	if $$self{'pt'} =~ /\.pod$/
577	0	0	if $$self{'pt'} =~ /\.xml$/
585	0	0	if (-r $file)
600	0	0	$$self{'ua'} ? :
603	0	0	if -r "$$self{'DIR'}/$file"
606	0	0	if -r $file
608	0	0	if -r "pWiki/$file"
620	0	0	if $link =~ /:$/
626	0	0	if ($link =~ /(.*)[|](.*)/) { }
631	0	0	if $$self{'pt'} =~ /\.pod/
634	0	0	if $$self{'pt'} =~ /\.wiki/
635	0	0	if $$self{'pt'} =~ /\.pod/
637	0	0	if $$self{'DIR'}
638	0	0	unless $url =~ m[^/]
641	0	0	if -r $$self{'dr'} . $url . '.wiki'
643	0	0	if -r $$self{'dr'} . $url . '.text'
644	0	0	if -r $$self{'dr'} . $url . '.html'
645	0	0	if -r $$self{'dr'} . $url . '.htm'
646	0	0	if -r $$self{'dr'} . $url . '.pod'
647	0	0	if -r $$self{'dr'} . $url . '.xml'
664	0	0	if $cmd eq 'I'
665	0	0	if $cmd eq 'B'
666	0	0	if $cmd =~ /[CFX]/
667	0	0	if $cmd eq 'L'
668	0	0	if $cmd eq 'E' and /^[^0-9]/
669	0	0	if $cmd eq 'E' and /^[0-9]/
671	0	0	if $cmd eq 'S'
727	0	0	if (/\n=location (.+)/i)
733	0	0	if /\n=title ([^\n]+)/i
734	0	0	if /\n=head1 ([^\n]+)/i
735	0	0	if /\n=head2 ([^\n]+)/i
736	0	0	if /\n=head3 ([^\n]+)/i
737	0	0	if /\n=over.*/i
738	0	0	if /\n=item (.*)/i
739	0	0	if /\n=back.*/i