Clean up files that could mess up merge
[sdlgit/SDL_perl.git] / lib / SDL / Sound.pm
CommitLineData
bfd90409 1#!/usr/bin/env perl
2#
3# Sound.pm
4#
5# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
6#
7# ------------------------------------------------------------------------------
8#
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.
13#
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.
18#
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
22#
23# ------------------------------------------------------------------------------
24#
25# Please feel free to send questions, suggestions or improvements to:
26#
27# David J. Goehrig
28# dgoehrig@cpan.org
29#
30
31package SDL::Sound;
32use strict;
33
34sub new {
35 my $proto = shift;
36 my $class = ref($proto) || $proto;
37 my $filename = shift;
38 my $self = \SDL::MixLoadWAV($filename);
39 die SDL::GetError() unless $$self;
40 bless $self,$class;
41 return $self;
42}
43
44sub DESTROY {
45 my $self = shift;
46 SDL::MixFreeChunk($$self);
47}
48
49sub volume {
50 my $self = shift;
51 my $volume = shift;
52 return SDL::MixVolumeChunk($$self,$volume);
53}
54
551;
56
57__END__;
58
59=pod
60
61
62
63=head1 NAME
64
65SDL::Sound - a perl extension
66
67=head1 DESCRIPTION
68
69L<SDL::Sound> is a module for loading WAV files for sound effects.
70The file can be loaded by creating a new L<SDL::Sound> object by
71passing the filename to the constructor;
72
73 my $sound = new SDL::Sound 'my_sfx.wav';
74
75=head1 METHODS
76
77=head2 volume ( value )
78
79Sets the volume of the sample.
80
81=head1 AUTHOR
82
83David J. Goehrig
84
85=head1 SEE ALSO
86
87L<perl> L<SDL::Mixer>
88
89=cut