Branch Coverage

blib/lib/Pod/PseudoPod/PerlTricks/HTML.pm
Criterion Covered Total %
branch 287 690 41.5


line true false branch
21 0 183 unless @_ <= 0
105 0 4 unless @_ <= 4
0 4 unless @_ >= 4
108 1 3 unless ($$para[2] =~ /^\s*(?:output|terminal|code)/u)
119 0 3 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 3 unless @_ <= 2
0 3 unless @_ >= 1
3 0 @_ >= 2 ? :
149 3 0 if ($self->can($method)) { }
153 0 0 if DEBUG() > 1
157 0 77 unless @_ <= 2
0 77 unless @_ >= 2
162 0 0 unless @_ <= 2
0 0 unless @_ >= 2
167 0 16 unless @_ <= 1
0 16 unless @_ >= 1
179 0 83 unless @_ <= 2
0 83 unless @_ >= 2
184 0 187 unless @_ <= 1
0 187 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 1 unless @_ <= 1
0 1 unless @_ >= 1
221 0 124 unless @_ <= 2
0 124 unless @_ >= 1
0 124 @_ >= 2 ? :
227 0 647 unless @_ <= 2
0 647 unless @_ >= 1
0 647 @_ >= 2 ? :
229 32 615 if ($$self{'module_flag'}) { }
0 615 elsif ($$self{'in_U'}) { }
17 598 elsif ($$self{'in_L'}) { }
9 589 elsif ($$self{'in_output'}) { }
9 580 elsif ($$self{'in_code'}) { }
9 571 elsif ($$self{'in_terminal'}) { }
12 559 elsif ($$self{'in_figure'}) { }
241 0 184 unless @_ <= 1
0 184 unless @_ >= 1
246 0 56 unless @_ <= 2
0 56 unless @_ >= 2
251 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
257 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
262 0 5 unless @_ <= 2
0 5 unless @_ >= 1
5 0 @_ >= 2 ? :
266 0 5 unless @_ <= 2
0 5 unless @_ >= 1
5 0 @_ >= 2 ? :
271 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
272 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
274 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
275 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
277 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
278 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 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 18 unless @_ <= 2
0 18 unless @_ >= 1
0 18 @_ >= 2 ? :
290 0 0 unless @_ <= 3
0 0 unless @_ >= 3
297 0 17 unless @_ <= 2
0 17 unless @_ >= 1
13 4 @_ >= 2 ? :
298 1 16 if $$self{'in_figure'}
305 0 17 unless @_ <= 2
0 17 unless @_ >= 1
13 4 @_ >= 2 ? :
306 1 16 if $$self{'in_figure'}
322 0 3 unless @_ <= 2
0 3 unless @_ >= 1
3 0 @_ >= 2 ? :
326 1 2 if ($$self{'in_output'}) { }
1 1 elsif ($$self{'in_code'}) { }
1 0 elsif ($$self{'in_terminal'}) { }
342 0 3 unless @_ <= 2
0 3 unless @_ >= 1
3 0 @_ >= 2 ? :
343 1 2 if ($$self{'in_output'}) { }
1 1 elsif ($$self{'in_code'}) { }
1 0 elsif ($$self{'in_terminal'}) { }
368 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
371 0 1 unless @_ <= 2
0 1 unless @_ >= 1
0 1 @_ >= 2 ? :
375 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
378 0 1 unless @_ <= 2
0 1 unless @_ >= 1
0 1 @_ >= 2 ? :
382 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
385 0 1 unless @_ <= 2
0 1 unless @_ >= 1
0 1 @_ >= 2 ? :
389 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
414 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 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 4 unless @_ <= 2
0 4 unless @_ >= 1
0 4 @_ >= 2 ? :
426 0 4 unless @_ <= 2
0 4 unless @_ >= 1
0 4 @_ >= 2 ? :
430 0 2 unless @_ <= 2
0 2 unless @_ >= 1
0 2 @_ >= 2 ? :
434 0 2 unless @_ <= 2
0 2 unless @_ >= 1
0 2 @_ >= 2 ? :
438 0 4 unless @_ <= 2
0 4 unless @_ >= 1
4 0 @_ >= 2 ? :
440 2 2 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 4 unless @_ <= 2
0 4 unless @_ >= 1
4 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 2 unless @_ <= 2
0 2 unless @_ >= 1
2 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 2 unless @_ <= 2
0 2 unless @_ >= 1
2 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 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
497 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
502 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
503 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 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 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
509 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
512 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
527 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
532 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
536 1 0 if ($text =~ /\A(perl[a-z0-9]+)\z/u)
545 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
550 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
555 0 2 unless @_ <= 2
0 2 unless @_ >= 1
2 0 @_ >= 2 ? :
569 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
570 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 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 43 unless @_ <= 2
0 43 unless @_ >= 2
588 38 5 unless ($self->dont_escape)
595 0 43 unless @_ <= 1
0 43 unless @_ >= 1
596 40 3 unless $$self{'in_verbatim'}
599 0 43 unless @_ <= 2
0 43 unless @_ >= 2
606 0 56 unless @_ <= 1
0 56 unless @_ >= 1
626 0 38 unless @_ <= 1
0 38 unless @_ >= 1
632 0 38 unless @_ <= 1
0 38 unless @_ >= 1
643 0 3 unless @_ <= 2
0 3 unless @_ >= 2
650 0 13 if $line =~ /\t/u
659 0 3 if ($$self{'accept_codes'} and $$self{'accept_codes'}{'VerbatimFormatted'}) { }
0 3 elsif ($$self{'codes_in_verbatim'}) { }
673 3 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 39 unless @_ <= 1
0 39 unless @_ >= 1
783 1 38 unless @{$paras = $$self{'paras'};}
786 0 38 if DEBUG() > 10
789 1 37 unless ($$self{'doc_has_started'})
800 0 0 $starting_contentless ? :
0 1 if DEBUG()
805 0 1 $starting_contentless ? :
815 7 28 if @$paras == 1 and $$paras[0][0] eq '=over' || $$paras[0][0] eq '~Verbatim' || $$paras[0][0] eq '=item'
831 0 38 if DEBUG() > 1
834 0 38 if ($para_type eq '=for') { }
4 34 elsif ($para_type eq '=begin') { }
4 30 elsif ($para_type eq '=end') { }
1 29 elsif ($para_type eq '~end') { }
835 0 0 if $self->_ponder_for($para, $curr_open, $paras)
837 4 0 if $self->_ponder_begin($para, $curr_open, $paras)
839 4 0 if $self->_ponder_end($para, $curr_open, $paras)
841 1 0 if $self->_ponder_doc_end($para, $curr_open, $paras)
847 0 29 if (grep $$_[1]{'~ignore'}, @$curr_open)
848 0 0 if DEBUG() > 1
855 0 29 if ($para_type eq '=pod') { }
2 27 elsif ($para_type eq '=over') { }
2 25 elsif ($para_type eq '=back') { }
0 25 elsif ($para_type eq '=row') { }
0 25 elsif ($para_type eq '=headrow') { }
0 25 elsif ($para_type eq '=bodyrows') { }
858 0 2 if $self->_ponder_over($para, $curr_open, $paras)
860 0 2 if $self->_ponder_back($para, $curr_open, $paras)
862 0 0 if $self->_ponder_row_start($para, $curr_open, $paras)
877 0 25 if DEBUG() > 1
881 0 25 if ($para_type eq '=headrow' or $para_type eq '=bodyrows')
886 0 5 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 4 21 if ($para_type eq '=item') { }
0 21 elsif ($para_type eq '=extend') { }
0 21 elsif ($para_type eq '=encoding') { }
3 18 elsif ($para_type eq '~Verbatim') { }
13 5 elsif ($para_type eq '~Para') { }
0 5 elsif ($para_type eq 'Data') { }
5 0 elsif ($para_type =~ s/^=//su and defined($para_type = $$self{'accept_directives'}{$para_type})) { }
902 0 4 if $self->_ponder_item($para, $curr_open, $paras)
927 0 5 if DEBUG() > 1
931 0 0 if DEBUG() > 1
942 0 25 if DEBUG() > 1
943 16 9 if ($para_type =~ s/^\?//su)
944 10 6 if (not @$curr_open) { }
945 0 10 if DEBUG()
948 0 6 if DEBUG() > 1
951 2 4 if (not @fors) { }
4 0 elsif ($fors[-1][1]{'~resolve'}) { }
952 0 2 if DEBUG()
958 0 4 if DEBUG()
960 0 4 if ($para_type eq 'Data') { }
961 0 0 if DEBUG()
965 0 4 if DEBUG()
968 0 0 if DEBUG()
975 22 3 if ($para_type eq 'Plain') { }
3 0 elsif ($para_type eq 'Verbatim') { }
0 0 elsif ($para_type eq 'Data') { }
989 0 25 if DEBUG()