| line |
true |
false |
branch |
|
45
|
0 |
0 |
unless $self->SUPER::init($args) |
|
49
|
0 |
0 |
if exists $args->{'additional_rules'} |
|
54
|
0 |
0 |
unless $self->{'OPM_index'} = delete $args->{'index'} |
|
70
|
0 |
0 |
if (@_) { } |
|
73
|
0 |
0 |
if (@_) { } |
|
140
|
0 |
0 |
if (ref $match) { } |
|
|
0 |
0 |
elsif (substr($line, 0, length $match) eq $match) { } |
|
141
|
0 |
0 |
if $line =~ /$match/ |
|
156
|
0 |
0 |
unless my $input = $args{'input'} |
|
159
|
0 |
0 |
unless my $version = $args{'version'} |
|
160
|
0 |
0 |
unless my $distr = $args{'distribution'} |
|
162
|
0 |
0 |
unless open my $in, "<:encoding(UTF-8)", $input |
|
165
|
0 |
0 |
unless open my $out, ">:encoding(UTF-8)", $output |
|
174
|
0 |
0 |
if ($pure_pod) { } |
|
190
|
0 |
0 |
if $args{'notice'} |
|
199
|
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|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") { } |
|
239
|
0 |
0 |
unless $self->$action($match, $line, $input, $ln) |
|
254
|
0 |
0 |
unless ($block) |
|
269
|
0 |
0 |
unless not $self->inDoc or $pure_pod |
|
273
|
0 |
0 |
if $in->close |
|
282
|
0 |
0 |
if ($self->currentManual->isPurePod) |
|
288
|
0 |
0 |
unless $self->inDoc |
|
304
|
0 |
0 |
unless my $manual = $self->currentManual |
|
317
|
0 |
0 |
unless my $chapter = delete $self->{'OPM_chapter'} |
|
332
|
0 |
0 |
unless my $chapter = $self->{'OPM_chapter'} |
|
344
|
0 |
0 |
unless my $section = delete $self->{'OPM_section'} |
|
359
|
0 |
0 |
unless my $section = $self->{'OPM_section'} |
|
386
|
0 |
0 |
unless my $subsection = $self->{'OPM_subsection'} |
|
412
|
0 |
0 |
$type eq 'overload' ? : |
|
|
0 |
0 |
$type eq 'tie' ? : |
|
417
|
0 |
0 |
unless defined $name |
|
421
|
0 |
0 |
unless my $container = $self->{'OPM_subsection'} || $self->{'OPM_section'} || $self->{'OPM_chapter'} |
|
423
|
0 |
0 |
if $type eq "method" |
|
446
|
0 |
0 |
unless ($line =~ /^\=option\s+(\S+)\s+(.+?)\s*$/) |
|
452
|
0 |
0 |
unless my $sub = $self->activeSubroutine |
|
473
|
0 |
0 |
unless ($line =~ /^\=default\s+(\S+)\s+(.+?)\s*$/) |
|
480
|
0 |
0 |
unless my $sub = $self->activeSubroutine |
|
492
|
0 |
0 |
unless ($line =~ /^\=requires\s+(\w+)\s+(.+?)\s*$/) |
|
512
|
0 |
0 |
unless (length $line) |
|
517
|
0 |
0 |
unless my $sub = $self->activeSubroutine |
|
542
|
0 |
0 |
unless defined $container |
|
556
|
0 |
0 |
unless $self->inDoc or $self->currentManual->isPurePod |
|
566
|
0 |
0 |
if $self->inDoc and not $self->currentManual->isPurePod |
|
577
|
0 |
0 |
$link =~ s/
(?:^|\:\:) # skip till last ::
(\w+ | '[^']+') # sub or overload between quotes
\( (.*?) \) # parameters
$//x ? : |
|
584
|
0 |
0 |
if (not length $link) { } |
|
|
0 |
0 |
elsif (defined($man = $self->index->findManual($link))) { } |
|
588
|
0 |
0 |
if (not $@ or $@ =~ /attempt to reload/i or $self->skipManualLink($link)) { } |
|
|
0 |
0 |
elsif ($@ =~ /Can't locate/) { } |
|
602
|
0 |
0 |
length $subroutine ? : |
|
|
0 |
0 |
length $option ? : |
|
|
0 |
0 |
unless builtin::blessed($man) |
|
607
|
0 |
0 |
unless defined $subroutine and length $subroutine |
|
611
|
0 |
0 |
unless (defined $package) |
|
618
|
0 |
0 |
unless (defined $sub) |
|
625
|
0 |
0 |
unless defined $option and length $option |
|
629
|
0 |
0 |
unless (defined $opt) |
|
641
|
0 |
0 |
$link =~ s/^([^|]*)\|// ? : |
|
643
|
0 |
0 |
unless length $link |
|
646
|
0 |
0 |
if $link =~ /^[a-z]+\:[^:]/ |
|
651
|
0 |
0 |
if $name =~ /^".*"$/ |
|
652
|
0 |
0 |
if defined $item |
|
654
|
0 |
0 |
length $name ? : |
|
657
|
0 |
0 |
if (not ref $man) { } |
|
|
0 |
0 |
elsif (not defined $item) { } |
|
|
0 |
0 |
elsif (my(@obj) = $man->all('findEntry', $item)) { } |
|
658
|
0 |
0 |
unless (defined $text and length $text) |
|
660
|
0 |
0 |
if defined $item and length $item |
|
663
|
0 |
0 |
unless ($man =~ /\(\d.*\)\s*$/) |
|
687
|
0 |
0 |
unless defined $string and length $string |
|
693
|
0 |
0 |
if $lines[$i] =~ /^=(for|begin)\s+\w/ |
|
695
|
0 |
0 |
if $lines[$i] =~ /^=end/ |
|
696
|
0 |
0 |
if $lines[$i] =~ /^\s*$/ and $protect and $protect eq "for" |
|
697
|
0 |
0 |
if $protect |
|
702
|
0 |
0 |
if substr($lines[$i], 0, 1) eq " " |
|
706
|
0 |
0 |
if (substr($lines[$i], 0, 1) eq '=') { } |
|
707
|
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 ') { } |
|
720
|
0 |
0 |
if ($i < $#lines and $lines[$i] eq "\n" and $lines[$i + 1] eq "\n") |
|
729
|
0 |
0 |
@lines ? : |
|
736
|
0 |
0 |
builtin::blessed($to) ? : |
|
748
|
0 |
0 |
$key eq 'Z' ? : |
|
|
0 |
0 |
$key eq 'X' ? : |
|
|
0 |
0 |
$key eq 'S' ? : |
|
|
0 |
0 |
$key eq 'P' ? : |
|
|
0 |
0 |
$key eq 'M' ? : |
|
|
0 |
0 |
$key eq 'L' ? : |
|
|
0 |
0 |
$key eq 'I' ? : |
|
|
0 |
0 |
$key eq 'F' ? : |
|
|
0 |
0 |
$key eq 'E' ? : |
|
|
0 |
0 |
$key eq 'C' ? : |
|
|
0 |
0 |
if ($key eq 'B') { } |
|
764
|
0 |
0 |
$block =~ /^=item\s+\d+\./m ? : |
|
771
|
0 |
0 |
unless defined $string and length $string |
|
775
|
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) |
|
788
|
0 |
0 |
if ($type =~ /^\:?html\b/) |
|
799
|
0 |
0 |
unless ($is_html) |
|
816
|
0 |
0 |
if $is_html |
|
847
|
0 |
0 |
ref $to ? : |
|
857
|
0 |
0 |
builtin::blessed($to) ? : |
|
|
0 |
0 |
!defined($to) ? : |
|
|
0 |
0 |
if (defined $href) { } |
|
896
|
0 |
0 |
if ($args{'make_m'}) |
|
900
|
0 |
0 |
if (my $c = $args{'make_c'}) |
|
906
|
0 |
0 |
if ($args{'make_p'}) |
|
912
|
0 |
0 |
$params->{$p} ? : |
|
921
|
0 |
0 |
$params->{$p} ? : |
|
926
|
0 |
0 |
if defined $markup |
|
934
|
0 |
0 |
if $manual->inherited($struct) |
|
949
|
0 |
0 |
if $manual->inherited($sub) |
|
953
|
0 |
0 |
if ($sub->type =~ /(_method$|^function$)/) |
|
959
|
0 |
0 |
unless not @options or $params->{'%options'} |
|
971
|
0 |
0 |
if $manual->inherited($option) |
|
976
|
0 |
0 |
unless ($default) |
|
994
|
0 |
0 |
if $manual->inherited($diag) |
|
1018
|
0 |
0 |
exists $args{'skip_auto_p'} ? : |
|
|
0 |
0 |
exists $args{'skip_auto_m'} ? : |
|
1033
|
0 |
0 |
if $object->isa("OODoc::Manual") |
|
1036
|
0 |
0 |
if $object->isa("OODoc::Text::Structure") |
|
1039
|
0 |
0 |
$object->manual eq $manual ? : |
|
1041
|
0 |
0 |
if $object->isa("OODoc::Text::Subroutine") |
|
1044
|
0 |
0 |
if $object->isa("OODoc::Text::Option") or $object->isa("OODoc::Text::Default") |
|
1047
|
0 |
0 |
if $object->isa("OODoc::Text::Diagnostic") |