#!/usr/bin/perl

use strict;
use warnings;

use SDL::Mixer;

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use SDL::Mixer;
use SDL::Music;

playMusicFile("test.wav");

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

	sub playMusicFile
	{
		my $music_file = $_[0];		
 
		$music = new SDL::Music $music_file;
		
		$mixer->music_volume(40);
		$mixer->play_music($music, 0);
	}
}