File Coverage

blib/lib/SDL/CDROM.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::CDROM;
2 2     2   1472 use strict;
  2         5  
  2         94  
3 2     2   13 use warnings;
  2         4  
  2         71  
4 2     2   11 use vars qw(@ISA @EXPORT @EXPORT_OK);
  2         4  
  2         122  
5             require Exporter;
6             require DynaLoader;
7 2     2   19 use SDL::Constants ':SDL::CDROM';
  2         4  
  2         288  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 2     2   15 use SDL::Internal::Loader;
  2         3  
  2         166  
11             internal_load_dlls(__PACKAGE__);
12              
13             our $VERSION = 2.548;
14              
15             bootstrap SDL::CDROM;
16              
17 2     2   14 use base 'Exporter';
  2         5  
  2         357  
18             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::CDROM'} };
19             our %EXPORT_TAGS = (
20             all => \@EXPORT,
21             format => $SDL::Constants::EXPORT_TAGS{'SDL::CDROM/default'},
22             status => $SDL::Constants::EXPORT_TAGS{'SDL::CDROM/status'},
23             track_type => $SDL::Constants::EXPORT_TAGS{'SDL::CDROM/track_type'}
24             );
25              
26             1;