|
|
@ -45,7 +45,7 @@ sub _parse_list { |
|
|
|
if ($level->{curr} < $level->{last}) { |
|
|
|
if ($level->{curr} < $level->{last}) { |
|
|
|
pop @stack; |
|
|
|
pop @stack; |
|
|
|
} |
|
|
|
} |
|
|
|
push @{ $stack[-1] }, [li => {}, $rest]; |
|
|
|
push @{ $stack[-1] }, [li => {}, $self->_parse_text($rest)]; |
|
|
|
} |
|
|
|
} |
|
|
|
pop @stack while @stack; |
|
|
|
pop @stack while @stack; |
|
|
|
|
|
|
|
|
|
|
@ -295,7 +295,7 @@ sub parse { |
|
|
|
} |
|
|
|
} |
|
|
|
# nonempty line |
|
|
|
# nonempty line |
|
|
|
when (m/^\s?(\S.+)/o) { |
|
|
|
when (m/^\s?(\S.+)/o) { |
|
|
|
push @{ $tree }, [p => {}, $1]; |
|
|
|
push @{ $tree }, [p => {}, $self->_parse_text($1)]; |
|
|
|
next; |
|
|
|
next; |
|
|
|
} |
|
|
|
} |
|
|
|
# empty lines; |
|
|
|
# empty lines; |
|
|
|