Branch Coverage

blib/lib/Pod/PseudoPod/PerlTricks/HTML.pm
Criterion Covered Total %
branch 79 690 11.4


line true false branch
21 0 7 unless @_ <= 0
105 0 0 unless @_ <= 4
0 0 unless @_ >= 4
108 0 0 unless ($$para[2] =~ /^\s*(?:output|terminal|code)/u)
119 0 0 unless $$self{'accept_targets'}{$target}
133 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
137 0 0 if ($self->can($method)) { }
141 0 0 if DEBUG() > 1
145 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
149 0 0 if ($self->can($method)) { }
153 0 0 if DEBUG() > 1
157 0 1 unless @_ <= 2
0 1 unless @_ >= 2
162 0 0 unless @_ <= 2
0 0 unless @_ >= 2
167 0 0 unless @_ <= 1
0 0 unless @_ >= 1
179 0 2 unless @_ <= 2
0 2 unless @_ >= 2
184 0 2 unless @_ <= 1
0 2 unless @_ >= 1
189 0 0 unless @_ <= 2
0 0 unless @_ >= 2
191 0 0 unless @_ <= 1
0 0 unless @_ >= 1
200 0 1 unless @_ <= 1
0 1 unless @_ >= 1
209 0 0 unless @_ <= 1
0 0 unless @_ >= 1
221 0 2 unless @_ <= 2
0 2 unless @_ >= 1
0 2 @_ >= 2 ? :
227 0 8 unless @_ <= 2
0 8 unless @_ >= 1
0 8 @_ >= 2 ? :
229 0 8 if ($$self{'module_flag'}) { }
0 8 elsif ($$self{'in_U'}) { }
0 8 elsif ($$self{'in_L'}) { }
0 8 elsif ($$self{'in_output'}) { }
0 8 elsif ($$self{'in_code'}) { }
0 8 elsif ($$self{'in_terminal'}) { }
0 8 elsif ($$self{'in_figure'}) { }
241 0 3 unless @_ <= 1
0 3 unless @_ >= 1
246 0 0 unless @_ <= 2
0 0 unless @_ >= 2
251 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
257 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
262 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
266 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
271 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
272 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
274 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
275 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
277 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
278 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
280 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
281 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
284 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
290 0 0 unless @_ <= 3
0 0 unless @_ >= 3
297 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
298 0 0 if $$self{'in_figure'}
305 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
306 0 0 if $$self{'in_figure'}
322 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
326 0 0 if ($$self{'in_output'}) { }
0 0 elsif ($$self{'in_code'}) { }
0 0 elsif ($$self{'in_terminal'}) { }
342 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
343 0 0 if ($$self{'in_output'}) { }
0 0 elsif ($$self{'in_code'}) { }
0 0 elsif ($$self{'in_terminal'}) { }
368 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
371 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
375 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
378 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
382 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
385 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
389 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
414 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
420 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
422 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
423 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
426 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
430 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
434 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
438 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
440 0 0 unless $self->is_first_list_level_item
447 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
450 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
451 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
453 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
458 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
459 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
460 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
462 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
467 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
468 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
469 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
471 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
481 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
485 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
489 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
496 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
497 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
502 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
503 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
505 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
506 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
508 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
509 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
512 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
527 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
532 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
536 0 0 if ($text =~ /\A(perl[a-z0-9]+)\z/u)
545 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
550 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
555 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
569 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
570 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
572 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
573 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
582 0 1 unless @_ <= 2
0 1 unless @_ >= 2
588 1 0 unless ($self->dont_escape)
595 0 1 unless @_ <= 1
0 1 unless @_ >= 1
596 1 0 unless $$self{'in_verbatim'}
599 0 1 unless @_ <= 2
0 1 unless @_ >= 2
606 0 1 unless @_ <= 1
0 1 unless @_ >= 1
626 0 0 unless @_ <= 1
0 0 unless @_ >= 1
632 0 0 unless @_ <= 1
0 0 unless @_ >= 1
643 0 0 unless @_ <= 2
0 0 unless @_ >= 2
650 0 0 if $line =~ /\t/u
659 0 0 if ($$self{'accept_codes'} and $$self{'accept_codes'}{'VerbatimFormatted'}) { }
0 0 elsif ($$self{'codes_in_verbatim'}) { }
673 0 0 if @$para > 3
698 0 0 unless defined $in and length $in
700 0 0 if ($in =~ /^(0[0-7]*)$/u) { }
0 0 elsif ($in =~ /^0?x([0-9a-fA-F]+)$/u) { }
703 0 0 if ($Pod::Escapes::NOT_ASCII)
704 0 0 unless ($in =~ /^\d+$/u)
707 0 0 unless defined $in
716 0 0 if (defined $Pod::Escapes::Name2character_number{$in} and $Pod::Escapes::Name2character_number{$in} < 127) { }
0 0 elsif (defined $Pod::Escapes::Name2character_number{$in}) { }
762 0 2 unless @_ <= 1
0 2 unless @_ >= 1
783 1 1 unless @{$paras = $$self{'paras'};}
786 0 1 if DEBUG() > 10
789 1 0 unless ($$self{'doc_has_started'})
800 0 0 $starting_contentless ? :
0 1 if DEBUG()
805 0 1 $starting_contentless ? :
815 0 1 if @$paras == 1 and $$paras[0][0] eq '=over' || $$paras[0][0] eq '~Verbatim' || $$paras[0][0] eq '=item'
831 0 1 if DEBUG() > 1
834 0 1 if ($para_type eq '=for') { }
0 1 elsif ($para_type eq '=begin') { }
0 1 elsif ($para_type eq '=end') { }
0 1 elsif ($para_type eq '~end') { }
835 0 0 if $self->_ponder_for($para, $curr_open, $paras)
837 0 0 if $self->_ponder_begin($para, $curr_open, $paras)
839 0 0 if $self->_ponder_end($para, $curr_open, $paras)
841 0 0 if $self->_ponder_doc_end($para, $curr_open, $paras)
847 0 1 if (grep $$_[1]{'~ignore'}, @$curr_open)
848 0 0 if DEBUG() > 1
855 0 1 if ($para_type eq '=pod') { }
0 1 elsif ($para_type eq '=over') { }
0 1 elsif ($para_type eq '=back') { }
0 1 elsif ($para_type eq '=row') { }
0 1 elsif ($para_type eq '=headrow') { }
0 1 elsif ($para_type eq '=bodyrows') { }
858 0 0 if $self->_ponder_over($para, $curr_open, $paras)
860 0 0 if $self->_ponder_back($para, $curr_open, $paras)
862 0 0 if $self->_ponder_row_start($para, $curr_open, $paras)
877 0 1 if DEBUG() > 1
881 0 1 if ($para_type eq '=headrow' or $para_type eq '=bodyrows')
886 0 1 if ($para_type =~ /^=head\d$/su and not $$self{'accept_heads_anywhere'} and @$curr_open and $$curr_open[-1][0] eq '=over')
891 0 0 if DEBUG() > 2
901 0 1 if ($para_type eq '=item') { }
0 1 elsif ($para_type eq '=extend') { }
0 1 elsif ($para_type eq '=encoding') { }
0 1 elsif ($para_type eq '~Verbatim') { }
0 1 elsif ($para_type eq '~Para') { }
0 1 elsif ($para_type eq 'Data') { }
1 0 elsif ($para_type =~ s/^=//su and defined($para_type = $$self{'accept_directives'}{$para_type})) { }
902 0 0 if $self->_ponder_item($para, $curr_open, $paras)
927 0 1 if DEBUG() > 1
931 0 0 if DEBUG() > 1
942 0 1 if DEBUG() > 1
943 0 1 if ($para_type =~ s/^\?//su)
944 0 0 if (not @$curr_open) { }
945 0 0 if DEBUG()
948 0 0 if DEBUG() > 1
951 0 0 if (not @fors) { }
0 0 elsif ($fors[-1][1]{'~resolve'}) { }
952 0 0 if DEBUG()
958 0 0 if DEBUG()
960 0 0 if ($para_type eq 'Data') { }
961 0 0 if DEBUG()
965 0 0 if DEBUG()
968 0 0 if DEBUG()
975 1 0 if ($para_type eq 'Plain') { }
0 0 elsif ($para_type eq 'Verbatim') { }
0 0 elsif ($para_type eq 'Data') { }
989 0 1 if DEBUG()