This file is indexed.

/usr/share/perl5/perl5i/2/UNIVERSAL.pm is in libperl5i-perl 2.13.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
package perl5i::2::UNIVERSAL;

# Methods which apply to all autoboxed objects.
#
# They do NOT apply to blessed objects.  That should go into perl5i::2::Meta::Instance.

use strict;
use warnings;

require Carp::Fix::1_25;

sub alias {
    my $self = shift;

    Carp::Fix::1_25::croak('Not enough arguments given to alias()') unless @_;

    my @name = @_;
    unshift @name, (caller)[0] unless @name > 1 or grep /::/, @name;

    my $name = join '::', @name;

    # If this redefines something, assume the user wanted to
    no warnings 'redefine';
    no strict 'refs';
    *{$name} = $self;
    return 1;
}

sub is_number   { return }
sub is_positive { return }
sub is_negative { return }
sub is_even     { return }
sub is_odd      { return }
sub is_int      { return }
sub is_integer  { return }
sub is_decimal  { return }

1;