/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;
|