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
|
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;
our $VERSION = 2.548;
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;
|
