| … | |
… | |
| 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 | } |
| … | |
… | |
| 163 | indent => $indent * 16, |
163 | indent => $indent * 16, |
| 164 | level => $level, |
164 | level => $level, |
| 165 | markup => (::special image => "pod/" . $_->text), |
165 | markup => (::special image => "pod/" . $_->text), |
| 166 | }; |
166 | }; |
| 167 | } |
167 | } |
|
|
168 | () |
|
|
169 | } |
|
|
170 | |
|
|
171 | sub view_begin { |
| 168 | () |
172 | () |
| 169 | } |
173 | } |
| 170 | |
174 | |
| 171 | sub view { |
175 | sub view { |
| 172 | my ($self, $type, $item) = @_; |
176 | my ($self, $type, $item) = @_; |
