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.26.1/B/Deparse.pm line 5018.

and 3 conditions

line !l l&&!r l&&r condition
198 0 0 869 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 572 defined $t and length $t
328 0 0 0 defined $t and length $t
353 0 0 1212 defined $new_code and length $new_code
385 0 0 29 defined $new_code and length $new_code
414 0 18 744 defined $line_group and length $line_group
530 10 0 0 $self->can("write_with_binmode") and $self->write_with_binmode
588 167 16 2 join("\n", @{$para;}[2 .. $#$para]) =~ /^\s*(\d+)\.?\s*$/s and $1 ne 1
642 4444 0 0 ref $_[0] and ref $_[0][0]
4444 0 0 ref $_[0] and ref $_[0][0] and $_[0][0][0] eq "~Top"
655 862 2502 1080 not $self->{'_output_is_for_JustPod'} and $self->_remap_sequences($treelet)
693 46 4413 1733 $nixx and ref $treelet->[$i]
4459 1727 6 $nixx and ref $treelet->[$i] and $treelet->[$i][0] eq "X"
6103 35 48 $merge and $i != 2
6138 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 176 0 236 defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing
739 0 827 2755 @stack == 1 and @{$stack[0];} == 3
827 253 2502 @stack == 1 and @{$stack[0];} == 3 and not ref $stack[0][2]
824 0 827 253 @_ == 2 and @{$_[1];} == 3
827 253 0 @_ == 2 and @{$_[1];} == 3 and not ref $_[1][2]
977 0 0 37 @{$treelet->[$i];} == 3 and $treelet->[$i][2] eq ""
1087 91 251 1 @{$ell;} == 3 and $ell->[2] =~ m[\A\s*/\s*\z]
1092 91 251 0 @{$ell;} == 3 and $ell->[2] eq ""
1100 19 321 2 not ref $ell->[2] and $ell->[2] =~ /\A\s/
12 328 0 not ref $ell->[-1] and $ell->[-1] =~ /\s\z/
1162 75 0 223 @{$ell;} == 3 and not ref $ell->[2]
1264 0 5 95 @section_name and not ref $section_name[0]
5 7 88 @section_name and not ref $section_name[0] and not ref $section_name[-1]
12 48 40 @section_name and not ref $section_name[0] and not ref $section_name[-1] and $section_name[0] =~ /^\"/s
55 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 '"'
48 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 100 0 65 not $section_name and @ell_content
100 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 147 0 18 not $section_name || $link_text and @ell_content
6 4 14 !ref($_) && / /s
147 4 14 not $section_name || $link_text and @ell_content and grep((!ref($_) && / /s), @ell_content)
1330 87 0 78 @ell_content == 1 and not ref $ell_content[0]
87 69 9 @ell_content == 1 and not ref $ell_content[0] and $ell_content[0] =~ m[^[^/]+[(][-a-zA-Z0-9]+[)]$]s
1389 281 0 403 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 7961 @_ == 1 || @_ == 2 and ref $_[0]
1555 0 327 197 @_ and ref($_[0] || '') eq "CODE"
1561 523 0 1 ref $class && $class->isa('Pod::Simple')
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 1080 0 $self->{'accept_codes'} || die("NO accept_codes in $self?!?")
1535 0 0 $source || ''
1555 522 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 909 0 ref $_[0] || $_[0]
355 0 0 1212 $new_code =~ /$xml_name_re/ or $new_code =~ /^[-\.0-9]/s
0 0 1212 $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 4858 2911 744 length $1 or length $2
7769 0 744 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 961 $content =~ /^\s*\*\s*$/s or $content =~ /^\s*$/s
680 734 5 341 $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 342 @{$ell;} == 2 or @{$ell;} == 3 and $ell->[2] eq ""
1100 2 0 340 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 43 ref $_ || length $_
1261 64 150 5 ref $_ || length $_
1302 119 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 1660 $in_s ||= $is_s
1514 3893 4068 0 @_ == 1 || @_ == 2