… | |
… | |
39 | |
39 | |
40 | =cut |
40 | =cut |
41 | |
41 | |
42 | 1; |
42 | 1; |
43 | |
43 | |
|
|
44 | package PodHTML; |
|
|
45 | |
|
|
46 | use strict; |
|
|
47 | use warnings; |
|
|
48 | use utf8; |
|
|
49 | |
|
|
50 | my $rcsid = '$Id: generate,v 1.26 2010/04/26 13:00:54 elmex Exp $'; |
|
|
51 | |
|
|
52 | use base "Pod::POM::View"; |
|
|
53 | |
|
|
54 | our $subdir; |
|
|
55 | our $dir; |
|
|
56 | our $menu; |
|
|
57 | |
|
|
58 | sub view_pod { |
|
|
59 | my ($self, $item) = @_; |
|
|
60 | $item->content->present ($self) |
|
|
61 | } |
|
|
62 | |
|
|
63 | sub view_head1 { |
|
|
64 | my ($self, $item) = @_; |
|
|
65 | $item->content->present ($self) |
|
|
66 | } |
|
|
67 | |
|
|
68 | sub view_head2 { |
|
|
69 | my ($self, $item) = @_; |
|
|
70 | "<p><em><span class=\"date\">", $item->title, "</span> ", $item->content->present ($self), "</em></p>" |
|
|
71 | } |
|
|
72 | |
|
|
73 | sub view_textblock { |
|
|
74 | my ($self, $item) = @_; |
|
|
75 | $item, "<br />" |
|
|
76 | } |
|
|
77 | |
|
|
78 | sub view_seq_bold { |
|
|
79 | my ($self, $item) = @_; |
|
|
80 | "<b>$item</b>" |
|
|
81 | } |
|
|
82 | |
|
|
83 | sub view_seq_file { |
|
|
84 | my ($self, $item) = @_; |
|
|
85 | "<tt>$item</tt>" |
|
|
86 | } |
|
|
87 | |
|
|
88 | sub view_seq_link { |
|
|
89 | my ($self, $item) = @_; |
|
|
90 | my ($name, $href) = split /\|/, $item, 2; |
|
|
91 | "<a href=\"$href\">$name</a>" |
|
|
92 | } |
|
|
93 | |
|
|
94 | |
44 | package PodRSS; |
95 | package PodRSS; |
45 | |
96 | |
46 | use strict; |
97 | use strict; |
47 | use warnings; |
98 | use warnings; |
48 | use utf8; |
99 | use utf8; |