Branch Coverage

blib/lib/Text/MultiMarkdown.pm
Criterion Covered Total %
branch 150 180 83.3


line true false branch
256 140 100 $p{$_} ? :
258 0 120 unless ($p{'tab_width'} =~ /^[0-9]+$/)
271 237 0 defined $_[0]{'id_handler'} ? :
291 0 22 unless ($has_unidecode)
308 0 26 unless $has_unidecode
327 3 3 if (exists $args->{'unicode_ids'} and $args->{'unicode_ids'} and exists $args->{'transliterated_ids'})
332 6 114 if ($args->{'unicode_ids'}) { }
3 111 elsif ($args->{'transliterated_ids'}) { }
336 0 3 unless $has_unidecode
459 8 173 if (@_ == 1 and not ref $_[0]) { }
28 145 elsif (@_ == 2 and not _looks_like_class($_[0]) and ref $_[1] eq ref {}) { }
7 138 elsif (@_ == 2 and _looks_like_class($_[0]) and not ref $_[1]) { }
102 36 elsif (@_ == 2 and builtin::blessed($_[0]) and not ref $_[1]) { }
14 22 elsif (@_ == 3 and _looks_like_class($_[0]) and not ref $_[1] and ref $_[2] eq ref {}) { }
22 0 elsif (@_ == 3 and builtin::blessed($_[0]) and not ref $_[1] and ref $_[2] eq ref {}) { }
479 7 174 unless defined $options
544 176 5 if $self->{'use_metadata'} or $self->{'strip_metadata'}
557 178 3 unless $self->{'disable_bibliography'}
558 178 3 unless $self->{'disable_footnotes'}
565 178 3 unless $self->{'disable_footnotes'}
566 178 3 unless $self->{'disable_footnotes'}
567 178 3 unless $self->{'disable_bibliography'}
572 4 177 if (lc($self->{'document_format'}) =~ /^complete\s*$/) { }
592 34 912 if ($self->_UseWikiLinks)
621 343 0 unless $self->{'disable_definition_lists'}
676 2 2 unless ($term =~ /^\s*$/)
705 89 2 $self->{'heading_ids'} ? :
708 89 2 if ($label ne "")
721 3 365 if ($self->_UseWikiLinks)
740 178 3 unless $self->{'disable_footnotes'}
777 12 33 if ($3)
783 4 41 if ($4)
801 123 85 if (defined $link_id)
803 8 115 if (defined $self->{'_crossrefs'}{$label})
806 11 112 if (defined $self->{'_titles'}{$label})
820 6 0 if (defined $alt_text and length $alt_text)
823 6 0 $self->{'img_ids'} ? :
826 4 2 if defined $link_id
844 0 1206 if $line =~ /^\s*$/ and $inMetaData = 0 and $clean_text .= $line
845 193 3166 if ($inMetaData) { }
846 2 191 unless $self->{'use_metadata'}
847 40 151 if ($line =~ /^([a-zA-Z0-9][0-9a-zA-Z _-]+?):\s*(.*)$/) { }
850 40 0 defined $2 ? :
851 2 38 if (lc $currentKey eq "format")
854 12 28 if (lc $currentKey eq "base url")
857 0 40 if (lc $currentKey eq "bibliography title")
863 150 1 if ($currentKey eq "")
869 1 0 if ($line =~ /^\s*(.+)$/)
911 2 5 if ($link_id eq "")
917 4 3 if (defined $self->{'_urls'}{$link_id})
985 0 178 unless length $text
1003 7 0 if (defined $self->{'_footnotes'}{$id})
1005 0 7 if ($self->{'_footnotes'}{$id} =~ /^glossary:/i) { }
1039 0 7 unless defined $footnote_closing_tag
1041 0 7 if ($footnote =~ s/^glossary:\s*//i) { }
1052 0 0 if ($2)
1066 4 174 if ($footnote_counter > 0) { }
1079 43 194 if $self->{'heading_ids_spaces_to_dash'}
1104 3 12 if (lc $key eq 'title') { }
3 9 elsif (lc $key eq 'css') { }
1 8 elsif (lc $key eq 'xhtml header') { }
1127 2 175 if $self->{'strip_metadata'}
1134 16 159 if ($result ne "")
1143 54 1294 if $self->{'use_wikilinks'}
1145 1277 17 unless $k
1146 17 0 if $self->{'_metadata'}{$k}
1170 34 0 if ($self->_UseWikiLinks)
1216 4 236 if $self->{'disable_tables'}
1275 2 1 if ($table =~ s/^$line_start\[\s*(.*?)\s*\](\[\s*(.*?)\s*\])?[ \t]*$//m)
1276 2 0 if (defined $3) { }
1294 0 3 if ($table =~ s/\n$line_start\[\s*(.*?)\s*\][ \t]*\n/\n/s)
1314 4 4 if ($cell =~ /\:$/) { }
1315 2 2 if ($cell =~ /^\:/) { }
1325 0 4 if ($cell =~ /^\:/) { }
1330 0 4 if ($cell =~ /^\./ or $cell =~ /\.$/) { }
1359 1 7 if ($ending =~ s/^\s*(\|{2,})\s*$/$1/)
1363 3 5 if ($count == 0)
1364 1 2 if ($cell =~ /^\s*$/) { }
1382 2 11 if ($line =~ /^\s*$/)
1395 0 27 if ($count == 0 and $use_row_header == 1)
1398 6 21 if ($ending =~ s/^\s*(\|{2,})\s*$/$1/)
1401 14 13 if (not $alignments[$count] =~ /^\s*$/) { }
1437 6 121 if (defined $self->{'_attributes'}{$id})
1488 6 0 if (defined $self->{'_references'}{$id}) { }
1494 3 9 if $old_id eq $id
1497 3 3 unless (defined $count)
1504 5 1 if ($anchor_text ne "")
1514 0 0 if ($anchor_text ne "")
1521 1 5 if ($self->_Header2Label($anchor_text) eq "notcited")
1541 1 177 if ($citation_counter > 0) { }