Condition Coverage

blib/lib/Pod/Simple.pm
Criterion Covered Total %
condition 168 268 62.6


and 2 conditions

line l !l condition
1438 276 2 $charnum >= 255 and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.

and 3 conditions

line !l l&&!r l&&r condition
198 0 0 882 defined $_[0] && ref $_[0]
262 0 0 9 defined $d and length $d
285 0 0 0 defined $d and length $d
313 0 0 599 defined $t and length $t
328 0 0 0 defined $t and length $t
353 0 0 1228 defined $new_code and length $new_code
385 0 0 29 defined $new_code and length $new_code
414 0 18 756 defined $line_group and length $line_group
530 10 0 0 $self->can("write_with_binmode") and $self->write_with_binmode
588 171 16 2 join("\n", @{$para;}[2 .. $para->$#*]) =~ /^\s*(\d+)\.?\s*$/s and $1 ne 1
642 4479 0 0 ref $_[0] and ref $_[0][0]
4479 0 0 ref $_[0] and ref $_[0][0] and $_[0][0][0] eq "~Top"
655 872 2517 1090 not $self->{'_output_is_for_JustPod'} and $self->_remap_sequences($treelet)
693 46 4448 1742 $nixx and ref $treelet->[$i]
4494 1736 6 $nixx and ref $treelet->[$i] and $treelet->[$i][0] eq "X"
6147 35 48 $merge and $i != 2
6182 14 34 $merge and $i != 2 and not ref $treelet->[$i]
49 9 25 $merge and $i != 2 and not ref $treelet->[$i] and not ref $$treelet[$i - 1]
718 180 0 240 defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing
739 0 832 2775 @stack == 1 and @{$stack[0];} == 3
832 258 2517 @stack == 1 and @{$stack[0];} == 3 and not ref $stack[0][2]
824 0 832 258 @_ == 2 and @{$_[1];} == 3
832 258 0 @_ == 2 and @{$_[1];} == 3 and not ref $_[1][2]
977 0 0 37 @{$treelet->[$i];} == 3 and $treelet->[$i][2] eq ""
1087 93 253 1 @{$ell;} == 3 and $ell->[2] =~ m[\A\s*/\s*\z]
1092 93 253 0 @{$ell;} == 3 and $ell->[2] eq ""
1100 19 325 2 not ref $ell->[2] and $ell->[2] =~ /\A\s/
13 331 0 not ref $ell->[-1] and $ell->[-1] =~ /\s\z/
1162 77 0 225 @{$ell;} == 3 and not ref $ell->[2]
1264 0 5 99 @section_name and not ref $section_name[0]
5 8 91 @section_name and not ref $section_name[0] and not ref $section_name[-1]
13 51 40 @section_name and not ref $section_name[0] and not ref $section_name[-1] and $section_name[0] =~ /^\"/s
59 0 40 @section_name and not ref $section_name[0] and not ref $section_name[-1] and $section_name[0] =~ /^\"/s and $section_name[-1] =~ /\"$/s
18 22 0 @section_name == 1 && $section_name[0] eq '"'
51 0 40 @section_name and not ref $section_name[0] and not ref $section_name[-1] and $section_name[0] =~ /^\"/s and $section_name[-1] =~ /\"$/s and not @section_name == 1 && $section_name[0] eq '"'
1287 104 0 65 not $section_name and @ell_content
104 4 61 not $section_name and @ell_content and not ref $ell_content[0]
4 0 61 not $section_name and @ell_content and not ref $ell_content[0] and not ref $ell_content[-1]
4 42 19 not $section_name and @ell_content and not ref $ell_content[0] and not ref $ell_content[-1] and $ell_content[0] =~ /^\"/s
42 0 19 not $section_name and @ell_content and not ref $ell_content[0] and not ref $ell_content[-1] and $ell_content[0] =~ /^\"/s and $ell_content[-1] =~ /\"$/s
7 12 0 @ell_content == 1 && $ell_content[0] eq '"'
42 0 19 not $section_name and @ell_content and not ref $ell_content[0] and not ref $ell_content[-1] and $ell_content[0] =~ /^\"/s and $ell_content[-1] =~ /\"$/s and not @ell_content == 1 && $ell_content[0] eq '"'
1302 151 0 18 not $section_name || $link_text and @ell_content
6 4 14 !ref($_) && / /s
151 4 14 not $section_name || $link_text and @ell_content and grep((!ref($_) && / /s), @ell_content)
1330 91 0 78 @ell_content == 1 and not ref $ell_content[0]
91 69 9 @ell_content == 1 and not ref $ell_content[0] and $ell_content[0] =~ m[^[^/]+[(][-a-zA-Z0-9]+[)]$]s
1389 285 0 407 defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing
1407 0 284 0 @{$treelet->[$i];} == 3 and $treelet->[$i][2] eq ""
1416 0 0 284 @{$treelet->[$i];} == 3 and not ref($content = $treelet->[$i][2])
1514 0 0 8402 @_ == 1 || @_ == 2 and ref $_[0]
1555 0 327 198 @_ and ref($_[0] || '') eq "CODE"
1561 524 0 1 ref $class && $class->isa(__PACKAGE__)
1586 0 37 19 @_ and ref($_[0] || '') eq "CODE"

or 2 conditions

line l !l condition
128 2 17 +(shift())->{'errors_seen'} || 0
132 8 0 +(shift())->{'all_errata'} || {}
565 0 0 $self->{'source_filename'} || 'Pod input'
745 1090 0 $self->{'accept_codes'} || die("NO accept_codes in $self?!?")
1535 0 0 $source || ''
1555 523 2 $_[0] || ''
1586 53 3 $_[0] || ''

or 3 conditions

line l !l&&r !l&&!r condition
175 0 0 0 ref $_[0] || $_[0]
217 0 923 0 ref $_[0] || $_[0]
355 0 0 1228 $new_code =~ /$xml_name_re/ or $new_code =~ /^[-\.0-9]/s
0 0 1228 $new_code =~ /$xml_name_re/ or $new_code =~ /^[-\.0-9]/s or $new_code =~ /:[-\.0-9]/s
387 0 0 29 $new_code =~ /$xml_name_re/ or $new_code =~ /^[-\.0-9]/s
0 0 29 $new_code =~ /$xml_name_re/ or $new_code =~ /^[-\.0-9]/s or $new_code =~ /:[-\.0-9]/s
421 4905 2955 756 length $1 or length $2
7860 0 756 length $1 or length $2 or pos $line_group != length $line_group
507 0 0 10 not length $source or $source eq "-"
0 0 10 not length $source or $source eq "-" or $source =~ /^<&(?:STDIN|0)$/i
516 0 0 10 not length $to or $to eq "-"
0 0 10 not length $to or $to eq "-" or $to =~ /^>&?(?:STDOUT|1)$/i
604 57 2 965 $content =~ /^\s*\*\s*$/s or $content =~ /^\s*$/s
680 743 5 342 $nixx or $merge
862 21 0 0 $new_letter =~ /^[A-Z]$/s or $new_letter
883 21 0 0 $fallbacks_one =~ /^[A-Z](,[A-Z])*$/s or $fallbacks_one eq 0
21 0 0 $fallbacks_one =~ /^[A-Z](,[A-Z])*$/s or $fallbacks_one eq 0 or $fallbacks_one eq 1
908 42 0 0 exists $Known_formatting_codes{$f} or $f eq 0
42 0 0 exists $Known_formatting_codes{$f} or $f eq 0 or $f eq 1
977 0 37 0 @{$treelet->[$i];} == 2 or @{$treelet->[$i];} == 3 and $treelet->[$i][2] eq ""
1092 0 0 346 @{$ell;} == 2 or @{$ell;} == 3 and $ell->[2] eq ""
1100 2 0 344 not ref $ell->[2] and $ell->[2] =~ /\A\s/ or not ref $ell->[-1] and $ell->[-1] =~ /\s\z/
1229 12 70 0 ref $_ || length $_
1230 32 74 18 ref $_ || length $_
1260 15 61 47 ref $_ || length $_
1261 65 156 5 ref $_ || length $_
1302 123 28 18 $section_name || $link_text
1407 0 0 284 @{$treelet->[$i];} == 2 or @{$treelet->[$i];} == 3 and $treelet->[$i][2] eq ""
1479 8 12 1662 $in_s ||= $is_s
1514 4074 4328 0 @_ == 1 || @_ == 2