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

   1 package XML::RSS::Private::Output::V2_0;
   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::ModulesElems;
  10 use XML::RSS::Private::Output::Roles::ImageDims;
  11
  12 @ISA = (qw(
  13     XML::RSS::Private::Output::Roles::ImageDims
  14     XML::RSS::Private::Output::Roles::ModulesElems
  15     XML::RSS::Private::Output::Base
  16     )
  17 );
  18
  19 sub _get_filtered_items {
  20     my $self = shift;
  21
  22     return [
  23         grep {exists($_->{title}) || exists($_->{description})}
  24         @{$self->_get_items()},
  25     ];
  26 }
  27
  28 sub _out_item_2_0_tags {
  29     my ($self, $item) = @_;
  30
  31     $self->_output_def_item_tag($item, "author");
  32     $self->_output_array_item_tag($item, "category");
  33     $self->_output_def_item_tag($item, "comments");
  34
  35     $self->_out_guid($item);
  36
  37     $self->_output_def_item_tag($item, "pubDate");
  38
  39     $self->_out_item_source($item);
  40
  41     $self->_out_item_enclosure($item);
  42 }
  43
  44 sub _get_textinput_tag {
  45     return "textInput";
  46 }
  47
  48 sub _get_item_defined {
  49     return 1;
  50 }
  51
  52 sub _output_rss_middle {
  53     my $self = shift;
  54
  55     # PICS rating
  56     # Not supported by RSS 2.0
  57     # $output .= '<rating>'.$self->{channel}->{rating}.'</rating>'."\n"
  58     #    if $self->{channel}->{rating};
  59
  60     # copyright
  61     $self->_out_copyright();
  62
  63     $self->_out_dates();
  64
  65     # external CDF URL
  66     $self->_out_def_chan_tag("docs");
  67
  68     $self->_out_editors;
  69
  70     $self->_out_channel_array_self_dc_field("category");
  71     $self->_out_channel_self_dc_field("generator");
  72
  73     # Insert cloud support here
  74
  75     # ttl
  76     $self->_out_channel_self_dc_field("ttl");
  77
  78     $self->_out_modules_elements($self->channel());
  79
  80     $self->_out_last_elements;
  81 }
  82
  83 1;
  84