Branch Coverage

blib/lib/Text/Autoformat/Hang.pm
Criterion Covered Total %
branch 14 64 21.8


line true false branch
25 0 3 unless $_[0] =~ /^.*?($rbpat).*$/i
32 0 0 unless $num =~ /^([0-3]??)(\d??)(\d??)(\d)$/
34 0 0 $example =~ /[A-Z]/ ? :
56 0 26 unless $lists_mode
60 0 26 if ($_[1] =~ s/\A($hangPS)//) { }
0 26 elsif ($lists_mode =~ /1|bullet/i and $_[1] =~ s/\A($hang)//) { }
0 26 elsif ($_[1] =~ /\A\([^\s)]+\s/) { }
73 0 0 if $_[1] =~ /\A($ows)($abbrev)/ and CORE::length $1 || !@vals
76 0 22 if $_[1] =~ /\A $ows $pbr [^$sbr \t]* \s/msx
79 0 22 $_[1] =~ s/\A($ows$pbr$ows)// ? :
80 0 19 $lists_mode =~ /1|alpha/i && $_[1] =~ s/\A($let(?!$let))//i ? :
3 19 $lists_mode =~ /1|roman/i && $_[1] =~ s/\A($rom)\b//i ? :
0 22 $lists_mode =~ /1|number/i && $_[1] =~ s/\A($num)// ? :
88 21 1 unless $val->{'val'}
102 0 0 if (@vals == 1 and defined $vals[0]{'post'} and $vals[0]{'post'} =~ /[\.>)]/)
104 0 0 if ($v->{'type'} eq 'num' and $v->{'val'} >= 1000)
109 26 0 unless @vals
119 0 0 unless $prev and not $prev->empty
121 0 0 @$self < @$prev ? :
122 0 0 if ($self->[$level]{'type'} ne $prev->[$level]{'type'})
123 0 0 if @$self <= @$prev
128 0 0 unless $prev and not $prev->empty
129 0 0 if ($self->[0]{'type'} eq 'ps') { }
0 0 elsif ($self->[0]{'type'} eq 'bul') { }
0 0 elsif (@$self > @$prev) { }
156 0 0 if ($_[0]{'type'} eq 'rom') { }
160 0 0 unless $_[0]{'type'} eq 'let' and $_[0]{'val'} =~ /Z/i
166 0 0 if ($_[0]{'type'} eq 'rom') { }
0 0 elsif ($_[0]{'type'} eq 'let') { }
170 0 0 $_[0]{'val'} =~ /[A-Z]/ ? :
196 0 0 if @_ > 2
208 0 0 $level->{'type'} =~ /rom|let/ ? :