Branch Coverage

blib/lib/Pod/PseudoPod/PerlTricks.pm
Criterion Covered Total %
branch 24 352 6.8


line true false branch
21 0 2 unless @_ <= 0
105 0 0 unless @_ <= 4
0 0 unless @_ >= 4
108 0 0 unless ($$para[2] =~ /^\s*(?:output)/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 @_ <= 1
0 0 unless @_ >= 1
167 0 0 unless @_ <= 2
0 0 unless @_ >= 2
169 0 0 unless @_ <= 1
0 0 unless @_ >= 1
178 0 1 unless @_ <= 1
0 1 unless @_ >= 1
187 0 0 unless @_ <= 1
0 0 unless @_ >= 1
199 0 2 unless @_ <= 1
0 2 unless @_ >= 1
207 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
209 0 0 if (defined $$self{'output_fh'}) { }
221 0 1 unless @_ <= 2
0 1 unless @_ >= 1
0 1 @_ >= 2 ? :
225 0 0 unless @_ <= 1
0 0 unless @_ >= 1
230 0 0 unless @_ <= 2
0 0 unless @_ >= 2
235 0 1 unless @_ <= 2
0 1 unless @_ >= 1
1 0 @_ >= 2 ? :
241 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
246 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
247 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
249 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
250 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
252 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
253 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
255 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
256 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
267 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
271 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
275 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
282 0 1 unless @_ <= 2
0 1 unless @_ >= 1
0 1 @_ >= 2 ? :
284 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
285 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
288 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
292 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
296 0 0 unless @_ <= 2
0 0 unless @_ >= 1
0 0 @_ >= 2 ? :
300 0 0 unless @_ <= 1
0 0 unless @_ >= 1
301 0 0 unless $$self{'in_verbatim'}
304 0 0 unless @_ <= 2
0 0 unless @_ >= 2
317 0 0 unless @_ <= 2
0 0 unless @_ >= 2
324 0 0 if $line =~ /\t/u
333 0 0 if ($$self{'accept_codes'} and $$self{'accept_codes'}{'VerbatimFormatted'}) { }
0 0 elsif ($$self{'codes_in_verbatim'}) { }
347 0 0 if @$para > 3
372 0 0 unless defined $in and length $in
374 0 0 if ($in =~ /^(0[0-7]*)$/u) { }
0 0 elsif ($in =~ /^0?x([0-9a-fA-F]+)$/u) { }
377 0 0 if ($Pod::Escapes::NOT_ASCII)
378 0 0 unless ($in =~ /^\d+$/u)
381 0 0 unless defined $in
390 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}) { }
436 0 2 unless @_ <= 1
0 2 unless @_ >= 1
457 1 1 unless @{$paras = $$self{'paras'};}
460 0 1 if DEBUG() > 10
463 1 0 unless ($$self{'doc_has_started'})
474 0 0 $starting_contentless ? :
0 1 if DEBUG()
479 0 1 $starting_contentless ? :
489 0 0 if @$paras == 1 and $$paras[0][0] eq '=over' || $$paras[0][0] eq '~Verbatim' || $$paras[0][0] eq '=item'
505 0 0 if DEBUG() > 1
508 0 0 if ($para_type eq '=for') { }
0 0 elsif ($para_type eq '=begin') { }
0 0 elsif ($para_type eq '=end') { }
0 0 elsif ($para_type eq '~end') { }
509 0 0 if $self->_ponder_for($para, $curr_open, $paras)
511 0 0 if $self->_ponder_begin($para, $curr_open, $paras)
513 0 0 if $self->_ponder_end($para, $curr_open, $paras)
515 0 0 if $self->_ponder_doc_end($para, $curr_open, $paras)
521 0 0 if (grep $$_[1]{'~ignore'}, @$curr_open)
522 0 0 if DEBUG() > 1
529 0 0 if ($para_type eq '=pod') { }
0 0 elsif ($para_type eq '=over') { }
0 0 elsif ($para_type eq '=back') { }
0 0 elsif ($para_type eq '=row') { }
0 0 elsif ($para_type eq '=headrow') { }
0 0 elsif ($para_type eq '=bodyrows') { }
532 0 0 if $self->_ponder_over($para, $curr_open, $paras)
534 0 0 if $self->_ponder_back($para, $curr_open, $paras)
536 0 0 if $self->_ponder_row_start($para, $curr_open, $paras)
551 0 0 if DEBUG() > 1
555 0 0 if ($para_type eq '=headrow' or $para_type eq '=bodyrows')
560 0 0 if ($para_type =~ /^=head\d$/su and not $$self{'accept_heads_anywhere'} and @$curr_open and $$curr_open[-1][0] eq '=over')
565 0 0 if DEBUG() > 2
575 0 0 if ($para_type eq '=item') { }
0 0 elsif ($para_type eq '=extend') { }
0 0 elsif ($para_type eq '=encoding') { }
0 0 elsif ($para_type eq '~Verbatim') { }
0 0 elsif ($para_type eq '~Para') { }
0 0 elsif ($para_type eq 'Data') { }
0 0 elsif ($para_type =~ s/^=//su and defined($para_type = $$self{'accept_directives'}{$para_type})) { }
576 0 0 if $self->_ponder_item($para, $curr_open, $paras)
601 0 0 if DEBUG() > 1
605 0 0 if DEBUG() > 1
616 0 0 if DEBUG() > 1
617 0 0 if ($para_type =~ s/^\?//su)
618 0 0 if (not @$curr_open) { }
619 0 0 if DEBUG()
622 0 0 if DEBUG() > 1
625 0 0 if (not @fors) { }
0 0 elsif ($fors[-1][1]{'~resolve'}) { }
626 0 0 if DEBUG()
632 0 0 if DEBUG()
634 0 0 if ($para_type eq 'Data') { }
635 0 0 if DEBUG()
639 0 0 if DEBUG()
642 0 0 if DEBUG()
649 0 0 if ($para_type eq 'Plain') { }
0 0 elsif ($para_type eq 'Verbatim') { }
0 0 elsif ($para_type eq 'Data') { }
663 0 0 if DEBUG()