| line |
!l |
l&&!r |
l&&r |
condition |
|
166
|
0 |
0 |
0 |
not $self->inDoc || $line =~ /^\s*package\s*DB\s*;/ and $line =~ s/^(\s*package\s*([\w\-\:]+)\s*\;)// |
|
|
0 |
0 |
0 |
not $self->inDoc and $line =~ /^=package\s*([\w\-\:]+)\s*$/ |
|
243
|
0 |
0 |
0 |
$self->inDoc and not $pure_pod |
|
619
|
0 |
0 |
0 |
$self->inDoc and not $self->currentManual->isPurePod |
|
663
|
0 |
0 |
0 |
defined $subroutine and length $subroutine |
|
680
|
0 |
0 |
0 |
defined $option and length $option |
|
716
|
0 |
0 |
0 |
defined $text and length $text |
|
718
|
0 |
0 |
0 |
defined $item and length $item |
|
746
|
0 |
0 |
0 |
defined $string and length $string |
|
756
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect |
|
|
0 |
0 |
0 |
$lines[$i] =~ /^\s*$/ and $protect and $protect eq "for" |
|
770
|
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 " |
|
784
|
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" |
|
790
|
0 |
0 |
0 |
@lines and $lines[0] eq "\n" |
|
791
|
0 |
0 |
0 |
@lines and $lines[-1] eq "\n" |
|
815
|
0 |
0 |
0 |
defined $string and length $string |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
125
|
0 |
0 |
0 |
$args{'output'} || 'File::Spec'->devnull |
|
166
|
0 |
0 |
0 |
$self->inDoc || $line =~ /^\s*package\s*DB\s*;/ |
|
|
0 |
0 |
0 |
$pure_pod or $self->inDoc |
|
444
|
0 |
0 |
0 |
$self->{'OPM_subsection'} || $self->{'OPM_section'} || $self->{'OPM_chapter'} |
|
585
|
0 |
0 |
0 |
$self->{'OPM_subroutine'} || $self->{'OPM_subsubsection'} || $self->{'OPM_subsection'} || $self->{'OPM_section'} || $self->{'OPM_chapter'} |
|
607
|
0 |
0 |
0 |
$self->inDoc or $self->currentManual->isPurePod |
|
640
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i |
|
|
0 |
0 |
0 |
not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link) |
|
712
|
0 |
0 |
0 |
$self->manual($name) || $name |
|
817
|
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 |