Condition Coverage

blib/lib/Pod/Simple/BlackBox.pm
Criterion Covered Total %
condition 132 189 69.8


and 3 conditions

line !l l&&!r l&&r condition
208 1848 691 15600 not $self->{'parse_characters'} || $self->{'encoding'} and $self->{'in_pod'} || $line =~ /^=/s
691 15579 21 not $self->{'parse_characters'} || $self->{'encoding'} and $self->{'in_pod'} || $line =~ /^=/s and $line =~ /$non_ascii_re/
391 0 6 0 $cs_re and $copy =~ /$cs_re/
392 0 6 0 $cn_re and $copy =~ /$cn_re/
393 0 6 0 $cn_re and $copy =~ /$cn_re/
402 0 5 1 $rare_blocks_re and $copy =~ /$rare_blocks_re/
407 0 5 0 $later_latin_re and $copy =~ /$later_latin_re/
408 0 5 0 $later_latin_re and $copy =~ /$later_latin_re/
530 0 5709 22 defined $1 and $1 =~ /[^\S\r\n]/
535 1 0 5730 not $self->{'start_of_pod_block'} and @$paras
1 5098 632 not $self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq "~Verbatim"
551 838 1984 33 $2 and $2 ne " "
565 0 0 717 not $self->{'start_of_pod_block'} and @$paras
0 544 173 not $self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq "~Verbatim"
624 0 54 0 do { '???'; $self->{'encoding'} = $e; 1 } and $e eq "HACKRAW"
755 850 0 40 $self->{'errata'} and keys %{$$self{"errata"};}
842 0 873 31 !@$curr_open && @$paras && !grep(($_->[0] ne '~end'), @$paras)
872 3607 1165 4209 @$paras == 1 and $paras->[0][0] eq '=over' || $paras->[0][0] eq '=item' || $paras->[0][0] eq '~Verbatim' && $self->{'in_pod'}
947 4434 0 743 $para_type =~ /^=head\d$/s and not $self->{'accept_heads_anywhere'}
4434 737 6 $para_type =~ /^=head\d$/s and not $self->{'accept_heads_anywhere'} and @$curr_open
737 0 6 $para_type =~ /^=head\d$/s and not $self->{'accept_heads_anywhere'} and @$curr_open and $curr_open->[-1][0] eq "=over"
962 0 12 738 $para_type =~ s/^=//s and defined($para_type = $self->{'accept_directives'}{$para_type})
965 0 0 1022 @$curr_open and $over = (grep {$_->[0] eq "=over";} @$curr_open)[-1]
1220 5 201 4929 $seen_legal_directive and not $self->{'~tried_gen_errata'}
1367 0 0 0 @$curr_open && $curr_open->[-1][0] eq '=for'
1385 0 0 130 @$curr_open and $curr_open->[-1][0] eq "=for"
1556 0 0 209 @$curr_open and $curr_open->[-1][0] eq "=over"
1578 0 0 0 @$curr_open and $over = (grep {$_->[0] eq "=over";} @$curr_open)[-1]
1749 1382 3162 3 @$para == 3 and $para->[2] eq ""
1779 434 9 10 $indent and ref $indent eq "CODE"
1809 0 431 103 $self->{'accept_codes'} and $self->{'accept_codes'}{'VerbatimFormatted'}
1812 50 53 76 @$para > 3 and not $para->[-1] =~ /\S/
1853 7564 2401 1167 @_ and not ref $_[0]
1954 0 0 10 length $formatting and $$p[$i - 1] =~ /\S/
2180 2404 656 18 $self->{'_output_is_for_JustPod'} and $bracket_count > 1
2214 115 0 3 $3 ne " " and $self->{'_output_is_for_JustPod'}
2246 64 40 2952 @stack and not $stack[-1]
2324 3583 0 380 ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], "ARRAY")
2377 458 0 26 /^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s and $_ ne "-0"

or 2 conditions

line l !l condition
121 8573 904 $self->{'line_count'} ||= 0
132 8573 904 $self->{'paras'} ||= []
137 8219 1258 $self->{'pod_para_count'} ||= 0
831 5386 904 $self->{'curr_open'} ||= []
1220 4121 808 $self->{'content_seen'} ||= 1
1334 50 77 $para->[1]{'~really'} ||= "=begin"
1335 40 87 !$dont_ignore || 0
1336 66 61 $to_resolve || 0
1345 40 87 not $dont_ignore or scalar grep($_->[1]{'~ignore'}, @$curr_open)
1348 76 11 $self->{'content_seen'} ||= 1
1416 87 0 $self->{'content_seen'} ||= 1
1538 120 49 $self->{'content_seen'} ||= 1
1560 169 0 $self->{'content_seen'} ||= 1
2324 3879 84 $lol->[$i] || ''
2343 4 0 $_->[1]{'~really'} || '=over'

or 3 conditions

line l !l&&r !l&&!r condition
208 11 1837 16291 $self->{'parse_characters'} || $self->{'encoding'}
14659 941 691 $self->{'in_pod'} || $line =~ /^=/s
356 0 0 0 $b_ord < $min_cont or $b_ord > 191
540 1 94 5636 $self->{'start_of_pod_block'} or $self->{'last_was_blank'}
872 1139 3201 1034 $paras->[0][0] eq '=over' || $paras->[0][0] eq '=item' || $paras->[0][0] eq '~Verbatim' && $self->{'in_pod'}
1006 3 1 0 $item_type eq "number" or $item_type eq "bullet"
1619 0 0 0 $item_type eq "number" or $item_type eq "bullet"
1749 0 3 4544 @$para == 2 or @$para == 3 and $para->[2] eq ""
3 102 4442 @$para == 2 or @$para == 3 and $para->[2] eq "" or $para->[1]{'~cooked'}
1774 1 1 451 not defined $tab_width or $tab_width =~ /\D/
2007 0 0 0 ref $p->[$i] or ref $$p[$i + 1]
2056 2 865 3577 $preserve_space or $self->{'preserve_whitespace'}
2377 57 1 534 ref $_ eq "ARRAY" or ref $_ eq "Pod::Simple::LinkSection"
0 0 484 $_ eq 0 or /^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s and $_ ne "-0"