Commit | Line | Data |
3fea05b9 |
1 | package XML::RSS::Private::Output::V0_9; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use vars (qw(@ISA)); |
7 | |
8 | use XML::RSS::Private::Output::Base; |
9 | |
10 | @ISA = (qw(XML::RSS::Private::Output::Base)); |
11 | |
12 | sub _get_rdf_decl |
13 | { |
14 | return |
15 | qq{<rdf:RDF\nxmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"\n} . |
16 | qq{xmlns="http://my.netscape.com/rdf/simple/0.9/">\n\n}; |
17 | } |
18 | |
19 | # 'description' for item does not exist in RSS 0.9 |
20 | sub _out_item_desc { |
21 | return; |
22 | } |
23 | |
24 | # RSS 0.9 does not support the language tag so we nullify this tag. |
25 | sub _out_language { |
26 | return; |
27 | } |
28 | |
29 | sub _output_rss_middle { |
30 | my $self = shift; |
31 | |
32 | $self->_end_channel(); |
33 | $self->_output_main_elements; |
34 | } |
35 | |
36 | sub _get_end_tag { |
37 | return "rdf:RDF"; |
38 | } |
39 | |
40 | 1; |
41 | |