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