| line |
true |
false |
branch |
|
77
|
0 |
0 |
unless $self->SUPER::init($args) |
|
80
|
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/ |
|
120
|
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)\b/) { } |
|
|
0 |
0 |
elsif (substr($line, 0, 1) eq '=') { } |
|
|
0 |
0 |
elsif ($pure_pod or $self->inDoc) { } |
|
|
0 |
0 |
elsif ($line eq "__DATA__\n") { } |
|
198
|
0 |
0 |
if (ref $action) { } |
|
199
|
0 |
0 |
unless &$action($self, $match, $line, $input, $ln) |
|
204
|
0 |
0 |
unless $self->$action($match, $line, $input, $ln) |
|
220
|
0 |
0 |
unless ($block) |
|
235
|
0 |
0 |
if $self->inDoc and not $pure_pod |
|
239
|
0 |
0 |
if $in->close |
|
259
|
0 |
0 |
if @_ |
|
268
|
0 |
0 |
@_ ? : |
|
277
|
0 |
0 |
if ($self->currentManual->isPurePod) |
|
282
|
0 |
0 |
unless $self->inDoc |
|
301
|
0 |
0 |
unless defined $manual |
|
317
|
0 |
0 |
unless my $chapter = delete $$self{'OPM_chapter'} |
|
333
|
0 |
0 |
unless defined $chapter |
|
349
|
0 |
0 |
unless my $section = delete $$self{'OPM_section'} |
|
365
|
0 |
0 |
unless defined $section |
|
398
|
0 |
0 |
unless defined $subsection |
|
430
|
0 |
0 |
$type eq 'overload' ? : |
|
438
|
0 |
0 |
unless defined $container |
|
441
|
0 |
0 |
if $type eq 'method' |
|
468
|
0 |
0 |
unless ($line =~ /^\=option\s+(\S+)\s*(.+?)\s*$/) |
|
475
|
0 |
0 |
unless defined $sub |
|
496
|
0 |
0 |
unless ($line =~ /^\=default\s+(\S+)\s*(.+?)\s*$/) |
|
504
|
0 |
0 |
unless defined $sub |
|
521
|
0 |
0 |
unless ($line =~ /^\=requires\s+(\w+)\s*(.+?)\s*$/) |
|
542
|
0 |
0 |
unless (length $line) |
|
548
|
0 |
0 |
unless defined $sub |
|
579
|
0 |
0 |
unless defined $container |
|
599
|
0 |
0 |
unless $self->inDoc or $self->currentManual->isPurePod |
|
611
|
0 |
0 |
if $self->inDoc and not $self->currentManual->isPurePod |
|
623
|
0 |
0 |
$link =~ s/(?:^|\:\:) (\w+) \( (.*?) \)$//x ? : |
|
628
|
0 |
0 |
if (not length $link) { } |
|
|
0 |
0 |
elsif (defined($man = $self->manual($link))) { } |
|
632
|
0 |
0 |
if (not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link)) { } |
|
|
0 |
0 |
elsif ($@ =~ /Can't locate/) { } |
|
647
|
0 |
0 |
unless (ref $man) |
|
648
|
0 |
0 |
length $subroutine ? : |
|
|
0 |
0 |
length $option ? : |
|
655
|
0 |
0 |
unless defined $subroutine and length $subroutine |
|
659
|
0 |
0 |
unless (defined $package) |
|
666
|
0 |
0 |
unless (defined $sub) |
|
672
|
0 |
0 |
unless defined $option and length $option |
|
676
|
0 |
0 |
unless (defined $opt) |
|
687
|
0 |
0 |
$link =~ s/^([^|]*)\|// ? : |
|
689
|
0 |
0 |
unless (length $link) |
|
694
|
0 |
0 |
if ($link =~ /^[a-z]+\:[^:]/) |
|
695
|
0 |
0 |
unless defined $text |
|
701
|
0 |
0 |
if $name =~ /^".*"$/ |
|
702
|
0 |
0 |
if defined $item |
|
704
|
0 |
0 |
length $name ? : |
|
707
|
0 |
0 |
if (not ref $man) { } |
|
|
0 |
0 |
elsif (not defined $item) { } |
|
|
0 |
0 |
elsif (my(@obj) = $man->all('findEntry', $item)) { } |
|
708
|
0 |
0 |
unless (defined $text and length $text) |
|
710
|
0 |
0 |
if defined $item and length $item |
|
713
|
0 |
0 |
unless ($man =~ /\(\d.*\)\s*$/) |
|
720
|
0 |
0 |
unless defined $text |
|
724
|
0 |
0 |
unless defined $text |
|
729
|
0 |
0 |
unless defined $text |
|
738
|
0 |
0 |
unless defined $string and length $string |
|
744
|
0 |
0 |
if $lines[$i] =~ /^=(for|begin)\s+\w/ |
|
746
|
0 |
0 |
if $lines[$i] =~ /^=end/ |
|
748
|
0 |
0 |
if $lines[$i] =~ /^\s*$/ and $protect and $protect eq 'for' |
|
751
|
0 |
0 |
if $protect |
|
756
|
0 |
0 |
if substr($lines[$i], 0, 1) eq ' ' |
|
761
|
0 |
0 |
if (substr($lines[$i], 0, 1) eq '=') { } |
|
762
|
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 ') { } |
|
776
|
0 |
0 |
if ($i < $#lines and $lines[$i] eq "\n" and $lines[$i + 1] eq "\n") |
|
785
|
0 |
0 |
@lines ? : |
|
792
|
0 |
0 |
ref $to ? : |
|
807
|
0 |
0 |
unless defined $string and length $string |
|
809
|
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) |
|
821
|
0 |
0 |
if ($type =~ /^\:(text|pod)\b/) { } |
|
|
0 |
0 |
elsif ($type =~ /^\:html\b/) { } |
|
830
|
0 |
0 |
$type eq 'html' ? : |
|
|
0 |
0 |
$type eq 'text' ? : |
|
840
|
0 |
0 |
unless ($is_html) |
|
869
|
0 |
0 |
if $is_html |
|
892
|
0 |
0 |
ref $to ? : |
|
900
|
0 |
0 |
ref $to ? : |
|
|
0 |
0 |
!defined($to) ? : |
|
|
0 |
0 |
defined $href ? : |