| line |
!l |
l&&!r |
l&&r |
condition |
|
164
|
0 |
0 |
0 |
not $self->inDoc and $line =~ s/^(\s*package\s*([\w\-\:]+)\;)// |
|
|
0 |
0 |
0 |
not $self->inDoc and $line =~ /^=package\s*([\w\-\:]+)\s*$/ |
|
235
|
0 |
0 |
0 |
$self->inDoc and not $pure_pod |
|
611
|
0 |
0 |
0 |
$self->inDoc and not $self->currentManual->isPurePod |
|
655
|
0 |
0 |
0 |
defined $subroutine and length $subroutine |
|
672
|
0 |
0 |
0 |
defined $option and length $option |
|
708
|
0 |
0 |
0 |
defined $text and length $text |
|
710
|
0 |
0 |
0 |
defined $item and length $item |
|
738
|
0 |
0 |
0 |
defined $string and length $string |
|
748
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect |
|
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect and $protect eq 'for' |
|
762
|
0 |
0 |
0 |
$i > 0 and $lines[$i - 1] ne "\n" |
|
|
0 |
0 |
0 |
$i < $#lines and $lines[$i + 1] ne "\n" |
|
|
0 |
0 |
0 |
$i < $#lines and $lines[$i + 1] ne "\n" and substr($lines[$i], 0, 5) ne '=for ' |
|
776
|
0 |
0 |
0 |
$i < $#lines and $lines[$i] eq "\n" |
|
|
0 |
0 |
0 |
$i < $#lines and $lines[$i] eq "\n" and $lines[$i + 1] eq "\n" |
|
782
|
0 |
0 |
0 |
@lines and $lines[0] eq "\n" |
|
783
|
0 |
0 |
0 |
@lines and $lines[-1] eq "\n" |
|
807
|
0 |
0 |
0 |
defined $string and length $string |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
123
|
0 |
0 |
0 |
$args{'output'} || 'File::Spec'->devnull |
|
164
|
0 |
0 |
0 |
$pure_pod or $self->inDoc |
|
434
|
0 |
0 |
0 |
$$self{'OPM_subsection'} || $$self{'OPM_section'} || $$self{'OPM_chapter'} |
|
573
|
0 |
0 |
0 |
$$self{'OPM_subroutine'} || $$self{'OPM_subsubsection'} || $$self{'OPM_subsection'} || $$self{'OPM_section'} || $$self{'OPM_chapter'} |
|
599
|
0 |
0 |
0 |
$self->inDoc or $self->currentManual->isPurePod |
|
632
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i |
|
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link) |
|
704
|
0 |
0 |
0 |
$self->manual($name) || $name |
|
809
|
0 |
0 |
0 |
$string =~ /(?:\A|\n) # start of line
\=begin\s+(:?\w+)\s* # begin statement
(.*?) # encapsulated
\n\=end\s+\1\s* # related end statement
/sx or $string =~ /(?:\A|\n) # start of line
\=for\s+(:?\w+)\b # for statement
(.*?)\n # encapsulated
(\n|\Z) # end of paragraph
/sx |