| … | |
… | |
| 126 | |
126 | |
| 127 | use strict; |
127 | use strict; |
| 128 | use warnings; |
128 | use warnings; |
| 129 | use utf8; |
129 | use utf8; |
| 130 | |
130 | |
| 131 | my $rcsid = '$Id: generate,v 1.16 2007/09/18 20:25:34 pippijn Exp $'; |
131 | my $rcsid = '$Id: generate,v 1.17 2007/09/19 14:23:27 pippijn Exp $'; |
| 132 | |
132 | |
| 133 | use base "Pod::POM::View"; |
133 | use base "Pod::POM::View"; |
| 134 | |
134 | |
| 135 | our $subdir; |
135 | our $subdir; |
| 136 | our $dir; |
136 | our $dir; |
| … | |
… | |
| 197 | our %metadata; |
197 | our %metadata; |
| 198 | |
198 | |
| 199 | sub view_pod { |
199 | sub view_pod { |
| 200 | my ($self, $item) = @_; |
200 | my ($self, $item) = @_; |
| 201 | "<?xml version='1.0' encoding='utf-8'?>\n", |
201 | "<?xml version='1.0' encoding='utf-8'?>\n", |
| 202 | "<rss version='2.0'>\n", |
202 | "<rss version='2.0'>\n" |
| 203 | $item->content->present ($self), |
203 | . $item->content->present ($self) |
| 204 | "</rss>\n" |
204 | . "</rss>\n" |
| 205 | } |
205 | } |
| 206 | |
206 | |
| 207 | sub view_head1 { |
207 | sub view_head1 { |
| 208 | my ($self, $item) = @_; |
208 | my ($self, $item) = @_; |
| 209 | my $title = $item->title->present ($self); |
209 | my $title = $item->title->present ($self); |
