/lib/SDL/Mixer/Samples.pm
Perl | 32 lines | 27 code | 5 blank | 0 comment | 0 complexity | e5cd421c2d97ce90abbef40298d73d99 MD5 | raw file
1package SDL::Mixer::Samples; 2use strict; 3use warnings; 4use vars qw(@ISA @EXPORT @EXPORT_OK); 5require Exporter; 6require DynaLoader; 7use SDL::Constants qw(:SDL::Mixer :SDL::Audio); 8our @ISA = qw(Exporter DynaLoader); 9 10use SDL::Internal::Loader; 11internal_load_dlls(__PACKAGE__); 12 13our $VERSION = 2.548; 14 15bootstrap SDL::Mixer::Samples; 16 17use base 'Exporter'; 18our @EXPORT = ( 19 @{ $SDL::Constants::EXPORT_TAGS{'SDL::Mixer'} }, 20 @{ $SDL::Constants::EXPORT_TAGS{'SDL::Audio'} } 21); 22our %EXPORT_TAGS = ( 23 all => \@EXPORT, 24 init => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/init'}, 25 defaults => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/defaults'}, 26 fading => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/fading'}, 27 type => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/type'}, 28 format => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/format'}, 29 status => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/status'} 30); 31 321;