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;