line |
true |
false |
branch |
79
|
0 |
0 |
unless $self->SUPER::init($args) |
83
|
0 |
0 |
if exists $args->{'additional_rules'} |
107
|
0 |
0 |
if (ref $match) { } |
|
0 |
0 |
elsif (substr($line, 0, length $match) eq $match) { } |
108
|
0 |
0 |
if $line =~ /$match/ |
123
|
0 |
0 |
unless my $input = $args{'input'} |
126
|
0 |
0 |
unless my $version = $args{'version'} |
127
|
0 |
0 |
unless my $distr = $args{'distribution'} |
129
|
0 |
0 |
unless my $in = "IO::File"->new($input, "r") |
132
|
0 |
0 |
unless my $out = "IO::File"->new($output, "w") |
141
|
0 |
0 |
if ($pure_pod) { } |
157
|
0 |
0 |
if $args{'notice'} |
166
|
0 |
0 |
if (not $self->inDoc || $line =~ /^\s*package\s*DB\s*;/ and $line =~ s/^(\s*package\s*([\w\-\:]+)\s*\;)//) { } |
|
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") { } |
206
|
0 |
0 |
if (ref $action) { } |
207
|
0 |
0 |
unless &$action($self, $match, $line, $input, $ln) |
212
|
0 |
0 |
unless $self->$action($match, $line, $input, $ln) |
228
|
0 |
0 |
unless ($block) |
243
|
0 |
0 |
if $self->inDoc and not $pure_pod |
247
|
0 |
0 |
if $in->close |
267
|
0 |
0 |
if @_ |
276
|
0 |
0 |
@_ ? : |
285
|
0 |
0 |
if ($self->currentManual->isPurePod) |
290
|
0 |
0 |
unless $self->inDoc |
309
|
0 |
0 |
unless defined $manual |
325
|
0 |
0 |
unless my $chapter = delete $self->{'OPM_chapter'} |
341
|
0 |
0 |
unless defined $chapter |
357
|
0 |
0 |
unless my $section = delete $self->{'OPM_section'} |
373
|
0 |
0 |
unless defined $section |
406
|
0 |
0 |
unless defined $subsection |
438
|
0 |
0 |
$type eq 'overload' ? : |
446
|
0 |
0 |
unless defined $container |
449
|
0 |
0 |
if $type eq "method" |
476
|
0 |
0 |
unless ($line =~ /^\=option\s+(\S+)\s+(.+?)\s*$/) |
483
|
0 |
0 |
unless defined $sub |
504
|
0 |
0 |
unless ($line =~ /^\=default\s+(\S+)\s+(.+?)\s*$/) |
512
|
0 |
0 |
unless defined $sub |
529
|
0 |
0 |
unless ($line =~ /^\=requires\s+(\w+)\s+(.+?)\s*$/) |
550
|
0 |
0 |
unless (length $line) |
556
|
0 |
0 |
unless defined $sub |
587
|
0 |
0 |
unless defined $container |
607
|
0 |
0 |
unless $self->inDoc or $self->currentManual->isPurePod |
619
|
0 |
0 |
if $self->inDoc and not $self->currentManual->isPurePod |
631
|
0 |
0 |
$link =~ s/(?:^|\:\:) (\w+) \( (.*?) \)$//x ? : |
636
|
0 |
0 |
if (not length $link) { } |
|
0 |
0 |
elsif (defined($man = $self->manual($link))) { } |
640
|
0 |
0 |
if (not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link)) { } |
|
0 |
0 |
elsif ($@ =~ /Can't locate/) { } |
655
|
0 |
0 |
unless (ref $man) |
656
|
0 |
0 |
length $subroutine ? : |
|
0 |
0 |
length $option ? : |
663
|
0 |
0 |
unless defined $subroutine and length $subroutine |
667
|
0 |
0 |
unless (defined $package) |
674
|
0 |
0 |
unless (defined $sub) |
680
|
0 |
0 |
unless defined $option and length $option |
684
|
0 |
0 |
unless (defined $opt) |
695
|
0 |
0 |
$link =~ s/^([^|]*)\|// ? : |
697
|
0 |
0 |
unless (length $link) |
702
|
0 |
0 |
if ($link =~ /^[a-z]+\:[^:]/) |
703
|
0 |
0 |
unless defined $text |
709
|
0 |
0 |
if $name =~ /^".*"$/ |
710
|
0 |
0 |
if defined $item |
712
|
0 |
0 |
length $name ? : |
715
|
0 |
0 |
if (not ref $man) { } |
|
0 |
0 |
elsif (not defined $item) { } |
|
0 |
0 |
elsif (my(@obj) = $man->all('findEntry', $item)) { } |
716
|
0 |
0 |
unless (defined $text and length $text) |
718
|
0 |
0 |
if defined $item and length $item |
721
|
0 |
0 |
unless ($man =~ /\(\d.*\)\s*$/) |
728
|
0 |
0 |
unless defined $text |
732
|
0 |
0 |
unless defined $text |
737
|
0 |
0 |
unless defined $text |
746
|
0 |
0 |
unless defined $string and length $string |
752
|
0 |
0 |
if $lines[$i] =~ /^=(for|begin)\s+\w/ |
754
|
0 |
0 |
if $lines[$i] =~ /^=end/ |
756
|
0 |
0 |
if $lines[$i] =~ /^\s*$/ and $protect and $protect eq "for" |
759
|
0 |
0 |
if $protect |
764
|
0 |
0 |
if substr($lines[$i], 0, 1) eq " " |
769
|
0 |
0 |
if (substr($lines[$i], 0, 1) eq '=') { } |
770
|
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 ') { } |
784
|
0 |
0 |
if ($i < $#lines and $lines[$i] eq "\n" and $lines[$i + 1] eq "\n") |
793
|
0 |
0 |
@lines ? : |
800
|
0 |
0 |
ref $to ? : |
815
|
0 |
0 |
unless defined $string and length $string |
817
|
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) |
829
|
0 |
0 |
if ($type =~ /^\:(text|pod)\b/) { } |
|
0 |
0 |
elsif ($type =~ /^\:?html\b/) { } |
838
|
0 |
0 |
$type eq 'html' ? : |
|
0 |
0 |
$type eq 'text' ? : |
848
|
0 |
0 |
unless ($is_html) |
877
|
0 |
0 |
if $is_html |
900
|
0 |
0 |
ref $to ? : |
908
|
0 |
0 |
ref $to ? : |
|
0 |
0 |
!defined($to) ? : |
|
0 |
0 |
defined $href ? : |