/usr/share/perl5/XML/RSS/Private/Output/V0_9.pm is in libxml-rss-perl 1.58-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | package XML::RSS::Private::Output::V0_9;
use strict;
use warnings;
use vars (qw(@ISA));
use XML::RSS::Private::Output::Base;
@ISA = (qw(XML::RSS::Private::Output::Base));
sub _get_rdf_decl
{
return
qq{<rdf:RDF\nxmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"\n} .
qq{xmlns="http://my.netscape.com/rdf/simple/0.9/">\n\n};
}
# 'description' for item does not exist in RSS 0.9
sub _out_item_desc {
return;
}
# RSS 0.9 does not support the language tag so we nullify this tag.
sub _out_language {
return;
}
sub _output_rss_middle {
my $self = shift;
$self->_end_channel();
$self->_output_main_elements;
}
sub _get_end_tag {
return "rdf:RDF";
}
1;
|