This file is indexed.

/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