/usr/lib/perl5/SDL/Version.pm is in libsdl-perl 2.540-5.
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 | package SDL::Version;
use strict;
use warnings;
require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);
use SDL::Internal::Loader;
internal_load_dlls(__PACKAGE__);
use overload '<=>' => \&my_cmp,
'""' => \&stringify;
bootstrap SDL::Version;
sub stringify {
my $self = shift;
return sprintf "%s%s%s", chr($self->major), chr($self->minor), chr($self->patch);
}
sub my_cmp {
my ($left, $right) = @_;
return "$left" cmp "$right";
}
1;
|