local-lib5/lib/perl5/XML/RSS/Private/Output/V0_9.pm

   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