| 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*$/ |
|
238
|
0 |
0 |
0 |
$self->inDoc and not $pure_pod |
|
614
|
0 |
0 |
0 |
$self->inDoc and not $self->currentManual->isPurePod |
|
658
|
0 |
0 |
0 |
defined $subroutine and length $subroutine |
|
675
|
0 |
0 |
0 |
defined $option and length $option |
|
711
|
0 |
0 |
0 |
defined $text and length $text |
|
713
|
0 |
0 |
0 |
defined $item and length $item |
|
741
|
0 |
0 |
0 |
defined $string and length $string |
|
751
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect |
|
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect and $protect eq 'for' |
|
765
|
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 ' |
|
779
|
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" |
|
785
|
0 |
0 |
0 |
@lines and $lines[0] eq "\n" |
|
786
|
0 |
0 |
0 |
@lines and $lines[-1] eq "\n" |
|
810
|
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 |
|
439
|
0 |
0 |
0 |
$self->{'OPM_subsection'} || $self->{'OPM_section'} || $self->{'OPM_chapter'} |
|
580
|
0 |
0 |
0 |
$self->{'OPM_subroutine'} || $self->{'OPM_subsubsection'} || $self->{'OPM_subsection'} || $self->{'OPM_section'} || $self->{'OPM_chapter'} |
|
602
|
0 |
0 |
0 |
$self->inDoc or $self->currentManual->isPurePod |
|
635
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i |
|
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link) |
|
707
|
0 |
0 |
0 |
$self->manual($name) || $name |
|
812
|
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 |