| line |
true |
false |
branch |
|
77
|
0 |
0 |
unless $self->SUPER::init($args) |
|
81
|
0 |
0 |
if exists $args->{'additional_rules'} |
|
105
|
0 |
0 |
if (ref $match) { } |
|
|
0 |
0 |
elsif (substr($line, 0, length $match) eq $match) { } |
|
106
|
0 |
0 |
if $line =~ /$match/ |
|
121
|
0 |
0 |
unless my $input = $args{'input'} |
|
124
|
0 |
0 |
unless my $version = $args{'version'} |
|
125
|
0 |
0 |
unless my $distr = $args{'distribution'} |
|
127
|
0 |
0 |
unless my $in = 'IO::File'->new($input, 'r') |
|
130
|
0 |
0 |
unless my $out = 'IO::File'->new($output, 'w') |
|
139
|
0 |
0 |
if ($pure_pod) { } |
|
155
|
0 |
0 |
if $args{'notice'} |
|
164
|
0 |
0 |
if (not $self->inDoc and $line =~ s/^(\s*package\s*([\w\-\:]+)\;)//) { } |
|
|
0 |
0 |
elsif (not $self->inDoc and $line =~ /^=package\s*([\w\-\:]+)\s*$/) { } |
|
|
0 |
0 |
elsif (my($match, $action) = $self->findMatchingRule($line)) { } |
|
|
0 |
0 |
elsif ($line =~ /^=(over|back|item|for|pod|begin|end|head4|encoding)\b/) { } |
|
|
0 |
0 |
elsif (substr($line, 0, 1) eq '=') { } |
|
|
0 |
0 |
elsif ($pure_pod or $self->inDoc) { } |
|
|
0 |
0 |
elsif ($line eq "__DATA__\n") { } |
|
201
|
0 |
0 |
if (ref $action) { } |
|
202
|
0 |
0 |
unless &$action($self, $match, $line, $input, $ln) |
|
207
|
0 |
0 |
unless $self->$action($match, $line, $input, $ln) |
|
223
|
0 |
0 |
unless ($block) |
|
238
|
0 |
0 |
if $self->inDoc and not $pure_pod |
|
242
|
0 |
0 |
if $in->close |
|
262
|
0 |
0 |
if @_ |
|
271
|
0 |
0 |
@_ ? : |
|
280
|
0 |
0 |
if ($self->currentManual->isPurePod) |
|
285
|
0 |
0 |
unless $self->inDoc |
|
304
|
0 |
0 |
unless defined $manual |
|
320
|
0 |
0 |
unless my $chapter = delete $self->{'OPM_chapter'} |
|
336
|
0 |
0 |
unless defined $chapter |
|
352
|
0 |
0 |
unless my $section = delete $self->{'OPM_section'} |
|
368
|
0 |
0 |
unless defined $section |
|
401
|
0 |
0 |
unless defined $subsection |
|
433
|
0 |
0 |
$type eq 'overload' ? : |
|
441
|
0 |
0 |
unless defined $container |
|
444
|
0 |
0 |
if $type eq 'method' |
|
471
|
0 |
0 |
unless ($line =~ /^\=option\s+(\S+)\s*(.+?)\s*$/) |
|
478
|
0 |
0 |
unless defined $sub |
|
499
|
0 |
0 |
unless ($line =~ /^\=default\s+(\S+)\s*(.+?)\s*$/) |
|
507
|
0 |
0 |
unless defined $sub |
|
524
|
0 |
0 |
unless ($line =~ /^\=requires\s+(\w+)\s*(.+?)\s*$/) |
|
545
|
0 |
0 |
unless (length $line) |
|
551
|
0 |
0 |
unless defined $sub |
|
582
|
0 |
0 |
unless defined $container |
|
602
|
0 |
0 |
unless $self->inDoc or $self->currentManual->isPurePod |
|
614
|
0 |
0 |
if $self->inDoc and not $self->currentManual->isPurePod |
|
626
|
0 |
0 |
$link =~ s/(?:^|\:\:) (\w+) \( (.*?) \)$//x ? : |
|
631
|
0 |
0 |
if (not length $link) { } |
|
|
0 |
0 |
elsif (defined($man = $self->manual($link))) { } |
|
635
|
0 |
0 |
if (not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link)) { } |
|
|
0 |
0 |
elsif ($@ =~ /Can't locate/) { } |
|
650
|
0 |
0 |
unless (ref $man) |
|
651
|
0 |
0 |
length $subroutine ? : |
|
|
0 |
0 |
length $option ? : |
|
658
|
0 |
0 |
unless defined $subroutine and length $subroutine |
|
662
|
0 |
0 |
unless (defined $package) |
|
669
|
0 |
0 |
unless (defined $sub) |
|
675
|
0 |
0 |
unless defined $option and length $option |
|
679
|
0 |
0 |
unless (defined $opt) |
|
690
|
0 |
0 |
$link =~ s/^([^|]*)\|// ? : |
|
692
|
0 |
0 |
unless (length $link) |
|
697
|
0 |
0 |
if ($link =~ /^[a-z]+\:[^:]/) |
|
698
|
0 |
0 |
unless defined $text |
|
704
|
0 |
0 |
if $name =~ /^".*"$/ |
|
705
|
0 |
0 |
if defined $item |
|
707
|
0 |
0 |
length $name ? : |
|
710
|
0 |
0 |
if (not ref $man) { } |
|
|
0 |
0 |
elsif (not defined $item) { } |
|
|
0 |
0 |
elsif (my(@obj) = $man->all('findEntry', $item)) { } |
|
711
|
0 |
0 |
unless (defined $text and length $text) |
|
713
|
0 |
0 |
if defined $item and length $item |
|
716
|
0 |
0 |
unless ($man =~ /\(\d.*\)\s*$/) |
|
723
|
0 |
0 |
unless defined $text |
|
727
|
0 |
0 |
unless defined $text |
|
732
|
0 |
0 |
unless defined $text |
|
741
|
0 |
0 |
unless defined $string and length $string |
|
747
|
0 |
0 |
if $lines[$i] =~ /^=(for|begin)\s+\w/ |
|
749
|
0 |
0 |
if $lines[$i] =~ /^=end/ |
|
751
|
0 |
0 |
if $lines[$i] =~ /^\s*$/ and $protect and $protect eq 'for' |
|
754
|
0 |
0 |
if $protect |
|
759
|
0 |
0 |
if substr($lines[$i], 0, 1) eq ' ' |
|
764
|
0 |
0 |
if (substr($lines[$i], 0, 1) eq '=') { } |
|
765
|
0 |
0 |
if ($i > 0 and $lines[$i - 1] ne "\n") { } |
|
|
0 |
0 |
elsif ($i < $#lines and $lines[$i + 1] ne "\n" and substr($lines[$i], 0, 5) ne '=for ') { } |
|
779
|
0 |
0 |
if ($i < $#lines and $lines[$i] eq "\n" and $lines[$i + 1] eq "\n") |
|
788
|
0 |
0 |
@lines ? : |
|
795
|
0 |
0 |
ref $to ? : |
|
810
|
0 |
0 |
unless defined $string and length $string |
|
812
|
0 |
0 |
if ($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) |
|
824
|
0 |
0 |
if ($type =~ /^\:(text|pod)\b/) { } |
|
|
0 |
0 |
elsif ($type =~ /^\:?html\b/) { } |
|
833
|
0 |
0 |
$type eq 'html' ? : |
|
|
0 |
0 |
$type eq 'text' ? : |
|
843
|
0 |
0 |
unless ($is_html) |
|
872
|
0 |
0 |
if $is_html |
|
895
|
0 |
0 |
ref $to ? : |
|
903
|
0 |
0 |
ref $to ? : |
|
|
0 |
0 |
!defined($to) ? : |
|
|
0 |
0 |
defined $href ? : |