/usr/share/perl5/XML/Feed/Content.pm is in libxml-feed-perl 0.46+dfsg-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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | # $Id$
package XML::Feed::Content;
use strict;
use base qw( Class::ErrorHandler );
sub wrap {
my $class = shift;
my($c) = @_;
bless { %$c }, $class;
}
*new = \&wrap;
sub _var {
my $content = shift;
my $var = shift;
$content->{$var} = shift if @_;
$content->{$var};
}
sub type { shift->_var('type', @_) }
sub body { shift->_var('body', @_) }
sub base { shift->_var('base', @_) }
1;
__END__
=head1 NAME
XML::Feed::Content - Wrapper for content objects
=head1 SYNOPSIS
my $content = $entry->content;
print $content->body;
=head1 DESCRIPTION
I<XML::Feed::Content> represents a content object in an I<XML::Feed::Entry>
entry in a syndication feed. This could be a I<E<lt>descriptionE<gt>>
element in an RSS feed, a I<E<lt>contentE<gt>> element in an Atom feed,
etc. In other words, any element where knowing both the actual data and the
B<type> of data is useful.
=head1 USAGE
=head2 wrap
Take params and turn them into a I<XML::Feed::Content> object.
=head2 new
A synonym for I<wrap>.
=head2 $content->body
The actual data.
=head2 $content->type
The MIME type of the content in I<body>.
This is really only useful in Atom feeds, because RSS feeds do not specify
the type of content included in an entry. In RSS feeds, generally the MIME
type defaults to I<text/html>.
=head2 $content->base
The url base of the content.
=head1 AUTHOR & COPYRIGHT
Please see the I<XML::Feed> manpage for author, copyright, and license
information.
=cut
|