File Coverage

blib/lib/SDL/Mixer/MixMusic.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::MixMusic;
2 1     1   669 use strict;
  1         1  
  1         23  
3 1     1   3 use warnings;
  1         1  
  1         17  
4 1     1   4 use vars qw(@ISA @EXPORT @EXPORT_OK);
  1         1  
  1         39  
5             require Exporter;
6             require DynaLoader;
7 1     1   4 use SDL::Constants qw(:SDL::Mixer :SDL::Audio);
  1         1  
  1         155  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 1     1   4 use SDL::Internal::Loader;
  1         2  
  1         43  
11             internal_load_dlls(__PACKAGE__);
12              
13             bootstrap SDL::Mixer::MixMusic;
14              
15 1     1   3 use base 'Exporter';
  1         2  
  1         104  
16             our @EXPORT = (
17             @{ $SDL::Constants::EXPORT_TAGS{'SDL::Mixer'} },
18             @{ $SDL::Constants::EXPORT_TAGS{'SDL::Audio'} }
19             );
20             our %EXPORT_TAGS = (
21             all => \@EXPORT,
22             init => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/init'},
23             defaults => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/defaults'},
24             fading => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/fading'},
25             type => $SDL::Constants::EXPORT_TAGS{'SDL::Mixer/type'},
26             format => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/format'},
27             status => $SDL::Constants::EXPORT_TAGS{'SDL::Audio/status'}
28             );
29              
30             1;