@ISA
= (
qw(
XML::RSS::Private::Output::Roles::ImageDims
XML::RSS::Private::Output::Roles::ModulesElems
XML::RSS::Private::Output::Base
)
);
sub
_get_filtered_items {
my
$self
=
shift
;
return
[
grep
{
exists
(
$_
->{title}) ||
exists
(
$_
->{description})}
@{
$self
->_get_items()},
];
}
sub
_out_item_2_0_tags {
my
(
$self
,
$item
) =
@_
;
$self
->_output_def_item_tag(
$item
,
"author"
);
$self
->_output_array_item_tag(
$item
,
"category"
);
$self
->_output_def_item_tag(
$item
,
"comments"
);
$self
->_out_guid(
$item
);
$self
->_output_def_item_tag(
$item
,
"pubDate"
);
$self
->_out_item_source(
$item
);
$self
->_out_item_enclosure(
$item
);
}
sub
_get_textinput_tag {
return
"textInput"
;
}
sub
_get_item_defined {
return
1;
}
sub
_output_rss_middle {
my
$self
=
shift
;
$self
->_out_copyright();
$self
->_out_dates();
$self
->_out_def_chan_tag(
"docs"
);
$self
->_out_editors;
$self
->_out_channel_array_self_dc_field(
"category"
);
$self
->_out_channel_self_dc_field(
"generator"
);
$self
->_out_channel_self_dc_field(
"ttl"
);
$self
->_out_modules_elements(
$self
->channel());
$self
->_out_last_elements;
}
1;