| … | |
… | |
| 85 | |
85 | |
| 86 | sub view_textblock { |
86 | sub view_textblock { |
| 87 | push @result, { |
87 | push @result, { |
| 88 | indent => $indent * 16, |
88 | indent => $indent * 16, |
| 89 | level => $level, |
89 | level => $level, |
| 90 | markup => "$_[1]\n", |
90 | markup => flatten $_[1], |
| 91 | }; |
91 | }; |
| 92 | () |
92 | () |
| 93 | } |
93 | } |
| 94 | |
94 | |
| 95 | sub view_head1 { |
95 | sub view_head1 { |
| … | |
… | |
| 193 | Coro::Storable::freeze pom_as_paragraphs +(Pod::POM->new->parse_text ($pod)) |
193 | Coro::Storable::freeze pom_as_paragraphs +(Pod::POM->new->parse_text ($pod)) |
| 194 | } |
194 | } |
| 195 | }; |
195 | }; |
| 196 | } |
196 | } |
| 197 | |
197 | |
|
|
198 | sub as_text($) { |
|
|
199 | my ($pars) = @_; |
|
|
200 | |
|
|
201 | my $res; |
|
|
202 | |
|
|
203 | for my $par (@$pars) { |
|
|
204 | if ($par->{type} =~ /^head\d+$/) { |
|
|
205 | $res .= "$par->{markup}\n\n"; |
|
|
206 | } elsif ($par->{type} eq "verbatim") { |
|
|
207 | $res .= "\n$par->{markup}\n\n"; |
|
|
208 | } elsif ($par->{type} eq "item") { |
|
|
209 | $res .= "\n* $par->{markup}\n\n"; |
|
|
210 | } else { |
|
|
211 | $res .= "$par->{markup}\n"; |
|
|
212 | } |
|
|
213 | } |
|
|
214 | |
|
|
215 | $res =~ s/\n\n+/\n/g; |
|
|
216 | |
|
|
217 | $res |
|
|
218 | } |
|
|
219 | |
| 198 | 1; |
220 | 1; |
| 199 | |
221 | |
