Branch Coverage

lib/OODoc/Parser/Markov.pm
Criterion Covered Total %
branch 0 202 0.0


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 ? :