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;