… | |
… | |
84 | push @result, { |
84 | push @result, { |
85 | indent => $indent * 8, |
85 | indent => $indent * 8, |
86 | level => $level, |
86 | level => $level, |
87 | }; |
87 | }; |
88 | my $title = $_[1]->title->present ($_[0]); |
88 | my $title = $_[1]->title->present ($_[0]); |
89 | $result[-1]{markup} = "$title\n\n" if length $title; |
89 | $result[-1]{markup} = "$title\n" if length $title; |
90 | $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title; |
90 | $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title; |
91 | local $level = $level + 1; |
91 | local $level = $level + 1; |
92 | $_[1]->content->present ($_[0]); |
92 | $_[1]->content->present ($_[0]); |
93 | () |
93 | () |
94 | } |
94 | } |