This file is indexed.

/usr/share/perl5/UNIVERSAL/Object/ID.pm is in libobject-id-perl 0.1.2-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
package UNIVERSAL::Object::ID;

use 5.008_008;

use strict;
use warnings;

use version; our $VERSION = qv("v0.1.2");

{
    package UNIVERSAL;
    use Object::ID;
}

=head1 NAME

UNIVERSAL::Object::ID - Supply a unique object identifier to every object

=head1 SYNOPSIS

    use DateTime;  # for example
    use UNIVERSAL::Object::ID;

    my $date = DateTime->now;

    print $date->object_id;

=head1 DESCRIPTION

Loading UNIVERSAL::Object::ID makes the C<< Object::ID >> role
available to every object.

Use at your own risk, polluting UNIVERSAL is not to be taken lightly.
The best place to use this module is in your own personal or internal
use code rather than a widely distributed software library.  Or you
can use L<Method::Lexical> to safely apply the UNIVERSAL effect to
just your lexical scope.

=head1 SEE ALSO

L<Object::ID>, L<Method::Lexical>

=cut

1;