| … | |
… | |
| 82 | my $text = $link =~ s/^(.*)\|// ? $1 : $link; |
82 | my $text = $link =~ s/^(.*)\|// ? $1 : $link; |
| 83 | |
83 | |
| 84 | if ($link =~ /http:/) { |
84 | if ($link =~ /http:/) { |
| 85 | "U<" . (aspod $link) . ">" |
85 | "U<" . (aspod $link) . ">" |
| 86 | } else { |
86 | } else { |
| 87 | () |
87 | aspod $text |
| 88 | } |
88 | } |
| 89 | } |
89 | } |
| 90 | |
90 | |
| 91 | sub view_item { |
91 | sub view_item { |
| 92 | push @result, { |
92 | push @result, { |
| … | |
… | |
| 218 | |
218 | |
| 219 | sub load_pod($) { |
219 | sub load_pod($) { |
| 220 | my ($path) = @_; |
220 | my ($path) = @_; |
| 221 | |
221 | |
| 222 | Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path], |
222 | Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path], |
| 223 | 8 => sub { |
223 | 9 => sub { |
| 224 | my ($src) = @_; |
224 | my ($src) = @_; |
| 225 | |
225 | |
| 226 | cf::fork_call { |
226 | cf::fork_call { |
| 227 | Coro::Storable::blocking_nfreeze |
227 | Coro::Storable::blocking_nfreeze |
| 228 | pom_as_paragraphs_ng |
228 | pom_as_paragraphs_ng |
