| 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 |
30 |
unless $lists_mode |
|
60
|
0 |
30 |
if ($_[1] =~ s/\A($hangPS)//) { } |
|
|
0 |
30 |
elsif ($lists_mode =~ /1|bullet/i and $_[1] =~ s/\A($hang)//) { } |
|
|
0 |
30 |
elsif ($_[1] =~ /\A\([^\s)]+\s/) { } |
|
73
|
0 |
0 |
if $_[1] =~ /\A($ows)($abbrev)/ and CORE::length $1 || !@vals |
|
76
|
0 |
31 |
if $_[1] =~ /\A $ows $pbr [^$sbr \t]* \s/msx |
|
79
|
0 |
31 |
$_[1] =~ s/\A($ows$pbr$ows)// ? : |
|
80
|
0 |
23 |
$lists_mode =~ /1|alpha/i && $_[1] =~ s/\A($let(?!$let))//i ? : |
|
|
3 |
23 |
$lists_mode =~ /1|roman/i && $_[1] =~ s/\A($rom)\b//i ? : |
|
|
5 |
26 |
$lists_mode =~ /1|number/i && $_[1] =~ s/\A($num)// ? : |
|
88
|
25 |
6 |
unless CORE::length $val->{'val'} |
|
102
|
4 |
0 |
if (@vals == 1 and defined $vals[0]{'post'} and $vals[0]{'post'} =~ /[\.>)]/) |
|
104
|
0 |
4 |
if ($v->{'type'} eq 'num' and $v->{'val'} >= 1000) |
|
109
|
26 |
4 |
unless @vals |
|
119
|
2 |
2 |
unless $prev and not $prev->empty |
|
121
|
0 |
2 |
@$self < @$prev ? : |
|
122
|
0 |
2 |
if ($self->[$level]{'type'} ne $prev->[$level]{'type'}) |
|
123
|
0 |
0 |
if @$self <= @$prev |
|
128
|
0 |
2 |
unless $prev and not $prev->empty |
|
129
|
0 |
2 |
if ($self->[0]{'type'} eq 'ps') { } |
|
|
0 |
2 |
elsif ($self->[0]{'type'} eq 'bul') { } |
|
|
0 |
2 |
elsif (@$self > @$prev) { } |
|
156
|
0 |
2 |
if ($_[0]{'type'} eq 'rom') { } |
|
160
|
2 |
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 |
8 |
$level->{'type'} =~ /rom|let/ ? : |