5 # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
7 # ------------------------------------------------------------------------------
9 # This library is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU Lesser General Public
11 # License as published by the Free Software Foundation; either
12 # version 2.1 of the License, or (at your option) any later version.
14 # This library is distributed in the hope that it will be useful,
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 # Lesser General Public License for more details.
19 # You should have received a copy of the GNU Lesser General Public
20 # License along with this library; if not, write to the Free Software
21 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 # ------------------------------------------------------------------------------
25 # Please feel free to send questions, suggestions or improvements to:
36 my $class = ref($proto) || $proto;
38 my $self = \SDL::MixLoadWAV($filename);
39 die SDL::GetError() unless $$self;
46 SDL::MixFreeChunk($$self);
52 return SDL::MixVolumeChunk($$self,$volume);
65 SDL::Sound - a perl extension
69 L<SDL::Sound> is a module for loading WAV files for sound effects.
70 The file can be loaded by creating a new L<SDL::Sound> object by
71 passing the filename to the constructor;
73 my $sound = new SDL::Sound 'my_sfx.wav';
77 =head2 volume ( value )
79 Sets the volume of the sample.