| … | |
… | |
| 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 | } |
