| … | |
… | |
| 111 | |
111 | |
| 112 | use strict; |
112 | use strict; |
| 113 | use warnings; |
113 | use warnings; |
| 114 | use utf8; |
114 | use utf8; |
| 115 | |
115 | |
| 116 | my $rcsid = '$Id: generate,v 1.10 2007/09/16 09:04:57 pippijn Exp $'; |
116 | my $rcsid = '$Id: generate,v 1.11 2007/09/16 09:10:13 pippijn Exp $'; |
| 117 | |
117 | |
| 118 | use base "Pod::POM::View"; |
118 | use base "Pod::POM::View"; |
| 119 | |
119 | |
| 120 | our $subdir; |
120 | our $subdir; |
| 121 | our $dir; |
121 | our $dir; |
| … | |
… | |
| 131 | $item->content->present ($self) |
131 | $item->content->present ($self) |
| 132 | } |
132 | } |
| 133 | |
133 | |
| 134 | sub view_head2 { |
134 | sub view_head2 { |
| 135 | my ($self, $item) = @_; |
135 | my ($self, $item) = @_; |
| 136 | "<p><em>", $item->title, " ", $item->content, "</em></p>" |
136 | "<p><em><span class=\"date\">", $item->title, "</span> ", $item->content, "</em></p>" |
| 137 | } |
137 | } |
| 138 | |
138 | |
| 139 | =head1 AUTHOR |
139 | =head1 AUTHOR |
| 140 | |
140 | |
| 141 | Copyright © 2007 Pippijn van Steenhoven |
141 | Copyright © 2007 Pippijn van Steenhoven |
