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

   1 package XML::RSS::Private::Output::V0_91;
   2
   3 use strict;
   4 use warnings;
   5
   6 use vars (qw(@ISA));
   7
   8 use XML::RSS::Private::Output::Base;
   9 use XML::RSS::Private::Output::Roles::ImageDims;
  10
  11 @ISA = (qw(
  12     XML::RSS::Private::Output::Roles::ImageDims
  13     XML::RSS::Private::Output::Base
  14     )
  15 );
  16
  17 sub _get_rdf_decl
  18 {
  19     return
  20     qq{<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN"\n} .
  21     qq{            "http://www.rssboard.org/rss-0.91.dtd">\n\n} .
  22     qq{<rss version="0.91">\n\n};
  23 }
  24
  25 sub _calc_lastBuildDate {
  26     my $self = shift;
  27     if (defined(my $d = $self->channel('lastBuildDate'))) {
  28         return $d;
  29     }
  30     elsif (defined(my $d2 = $self->_channel_dc('date'))) {
  31         return $self->_date_to_rss2($self->_date_from_dc_date($d2));
  32     }
  33     else {
  34         return undef;
  35     }
  36 }
  37
  38 sub _output_rss_middle {
  39     my $self = shift;
  40
  41     # PICS rating
  42     $self->_out_def_chan_tag("rating");
  43
  44     $self->_out_copyright();
  45
  46     $self->_out_dates();
  47
  48     # external CDF URL
  49     $self->_out_def_chan_tag("docs");
  50
  51     $self->_out_editors;
  52
  53     $self->_out_last_elements;
  54 }
  55
  56 1;
  57