Branch Coverage

blib/lib/Markdown/Perl/Util.pm
Criterion Covered Total %
branch 26 28 92.8


line true false branch
26 1 1 if $i < 0
39 45 53289 unless ($preserve_tabs)
42 45 0 unless wantarray
49 2251 228 if ($text =~ /^( {0,3}\t| {4})/u) { }
55 0 228 unless $text =~ /^( {0,3})/u
57 194 34 unless wantarray
61 30567 22494 if ($s != 0)
64 16930 13637 if ($ns >= $s) { }
911 12726 elsif (length $+{'l'}) { }
75 39187 13874 unless wantarray
92 75 48280 if (substr($_[0], 0, 1) eq "\t" and @_ > 1)
117 15574 811 unless $text =~ /\G(?: {0,3}\t| {4})/gu
119 304 514 if $text =~ /\G(?: {$s}| *\t)/u
145 4 241 if defined wantarray