/lib/SDL/Mixer.pm
http://github.com/PerlGameDev/SDL · Perl · 32 lines · 27 code · 5 blank · 0 comment · 0 complexity · c360f49729b5a794a716fcad37bf29e2 MD5 · raw file
- package SDL::Mixer;
- use strict;
- use warnings;
- use vars qw(@ISA @EXPORT @EXPORT_OK);
- require Exporter;
- require DynaLoader;
- use SDL::Constants qw(:SDL::Mixer :SDL::Audio);
- our @ISA = qw(Exporter DynaLoader);
- use SDL::Internal::Loader;
- internal_load_dlls(__PACKAGE__);
- our $VERSION = 2.548;
- bootstrap SDL::Mixer;
- use base 'Exporter';
- our @EXPORT = (
- @{ $SDL::Constants::EXPORT_TAGS{'SDL::Mixer'} },
- @{ $SDL::Constants::EXPORT_TAGS{'SDL::Audio'} }
- );
- our %EXPORT_TAGS = (
- all => \@EXPORT,
- init => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/init'},
- defaults => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/defaults'},
- fading => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/fading'},
- type => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/type'},
- format => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/format'},
- status => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/status'}
- );
- 1;