/usr/share/perl5/XML/Atom/Person.pm is in libxml-atom-perl 0.41-2.
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 | # $Id$
package XML::Atom::Person;
use strict;
use base qw( XML::Atom::Base );
use XML::Atom;
use XML::Atom::Feed;
use XML::Atom::Entry;
__PACKAGE__->mk_elem_accessors(qw( email name uri url homepage ));
for my $class (qw( XML::Atom::Feed XML::Atom::Entry )) {
$class->mk_object_accessor( author => __PACKAGE__ );
$class->mk_object_accessor( contributor => __PACKAGE__ );
}
sub element_name { 'author' }
1;
__END__
=head1 NAME
XML::Atom::Person - Author or contributor object
=head1 SYNOPSIS
my $person = XML::Atom::Person->new;
$person->email('foo@example.com');
$person->name('Foo Bar');
$entry->author($person);
=head1 DESCRIPTION
I<XML::Atom::Person> represents an author or contributor element in an
Atom feed or entry.
=head1 USAGE
=head2 XML::Atom::Person->new
=head2 $person->email([ $email ])
=head2 $person->name([ $name ])
=head2 $person->uri([ $uri ])
=cut
|