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 22 54796 unless ($preserve_tabs)
42 22 0 unless wantarray
49 2288 162 if ($text =~ /^( {0,3}\t| {4})/u) { }
55 0 162 unless $text =~ /^( {0,3})/u
57 125 37 unless wantarray
61 30857 23777 if ($s != 0)
64 16937 13920 if ($ns >= $s) { }
877 13043 elsif (length $+{'l'}) { }
75 40615 14019 unless wantarray
92 41 48988 if (substr($_[0], 0, 1) eq "\t" and @_ > 1)
117 15582 889 unless $text =~ /\G(?: {0,3}\t| {4})/gu
119 310 586 if $text =~ /\G(?: {$s}| *\t)/u
145 4 220 if defined wantarray