Select Code to Download

#!/usr/bin/perl

...
my $mixer = SDL::Mixer->new( -frequency => 22050,
                             -channels    => 2,
                             -size        => 1024);

Can't locate object method "new" via package "SDL::Mixer" at test.pl l
+ine 8.

use SDL::Mixer;
use SDL::Version;
...
my $version = SDL::Mixer::linked_version();
 
printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch
+);

use SDL::Mixer;
use SDL::Music;
...
        $mixer->play_music($music, 0);
    }
}