| … | |
… | |
| 185 | |
185 | |
| 186 | sub load_pod($) { |
186 | sub load_pod($) { |
| 187 | my ($path) = @_; |
187 | my ($path) = @_; |
| 188 | |
188 | |
| 189 | Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path], |
189 | Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path], |
| 190 | 5 => sub { |
190 | 6 => sub { |
| 191 | my ($src) = @_; |
191 | my ($src) = @_; |
| 192 | |
192 | |
| 193 | cf::fork_call { |
193 | cf::fork_call { |
| 194 | my $pod = $src->[0]; |
194 | my $pod = $src->[0]; |
| 195 | utf8::decode $pod; |
195 | utf8::decode $pod; |
| … | |
… | |
| 206 | |
206 | |
| 207 | for my $par (@$pars) { |
207 | for my $par (@$pars) { |
| 208 | if ($par->{type} =~ /^head\d+$/) { |
208 | if ($par->{type} =~ /^head\d+$/) { |
| 209 | $res .= "B<$par->{markup}>\n\n"; |
209 | $res .= "B<$par->{markup}>\n\n"; |
| 210 | } elsif ($par->{type} eq "verbatim") { |
210 | } elsif ($par->{type} eq "verbatim") { |
| 211 | $res .= "\n$par->{markup}\n\n"; |
211 | $res .= "$par->{markup}\n\n"; |
| 212 | } elsif ($par->{type} eq "item") { |
212 | } elsif ($par->{type} eq "item") { |
| 213 | $res .= "\n* I<$par->{markup}>\n\n"; |
213 | $res .= "* I<$par->{markup}>\n\n"; |
| 214 | } else { |
214 | } else { |
| 215 | $res .= "$par->{markup}\n\n"; |
215 | $res .= "$par->{markup}\n\n"; |
| 216 | } |
216 | } |
| 217 | } |
217 | } |
| 218 | |
218 | |
