File Coverage

blib/lib/SDL/Mixer.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package SDL::Mixer;
2 3     3   1466 use strict;
  3         6  
  3         86  
3 3     3   18 use warnings;
  3         6  
  3         100  
4 3     3   15 use vars qw(@ISA @EXPORT @EXPORT_OK);
  3         7  
  3         215  
5             require Exporter;
6             require DynaLoader;
7 3     3   18 use SDL::Constants qw(:SDL::Mixer :SDL::Audio);
  3         5  
  3         673  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 3     3   21 use SDL::Internal::Loader;
  3         6  
  3         263  
11             internal_load_dlls(__PACKAGE__);
12              
13             our $VERSION = 2.548;
14              
15             bootstrap SDL::Mixer;
16              
17 3     3   20 use base 'Exporter';
  3         6  
  3         595  
18             our @EXPORT = (
19             @{ $SDL::Constants::EXPORT_TAGS{'SDL::Mixer'} },
20             @{ $SDL::Constants::EXPORT_TAGS{'SDL::Audio'} }
21             );
22             our %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              
32             1;