| … | … | ||
|---|---|---|---|
| 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 | # format as gcfclient-style text | ||
| 198 | sub as_text($) { | 199 | sub as_text($) { |
| 199 | my ($pars) = @_; | 200 | my ($pars) = @_; |
| 200 | 201 | ||
| 201 | my $res; | 202 | my $res; |
| 202 | 203 | ||
| … | … | ||
| 212 | } | 213 | } |
| 213 | } | 214 | } |
| 214 | 215 | ||
| 215 | $res =~ s/\n\n+/\n/g; | 216 | $res =~ s/\n\n+/\n/g; |
| 216 | 217 | ||
| 218 | $res =~ s/<(\/?[\S+])>/[$1]/g; | ||
| 219 | $res =~ s/</</g; | ||
| 220 | $res =~ s/>/>/g; | ||
| 221 | $res =~ s/&/&/g; | ||
| 222 | |||
| 217 | $res | 223 | $res |
| 218 | } | 224 | } |
| 219 | 225 | ||
| 220 | 1; | 226 | 1; |
| 221 | 227 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |