File Coverage

blib/lib/SDL/Palette.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package SDL::Palette;
2 2     2   2981 use strict;
  2         4  
  2         82  
3 2     2   8 use warnings;
  2         4  
  2         52  
4 2     2   7 use vars qw(@ISA @EXPORT @EXPORT_OK);
  2         2  
  2         95  
5             require Exporter;
6             require DynaLoader;
7 2     2   6 use SDL::Constants ':SDL::Video';
  2         3  
  2         435  
8 2     2   283 use SDL::Color;
  2         2  
  2         409  
9             our @ISA = qw(Exporter DynaLoader);
10              
11 2     2   10 use SDL::Internal::Loader;
  2         2  
  2         89  
12             internal_load_dlls(__PACKAGE__);
13              
14             bootstrap SDL::Palette;
15              
16 2     2   8 use base 'Exporter';
  2         2  
  2         217  
17             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
18             our %EXPORT_TAGS = (
19             all => \@EXPORT,
20             color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
21             surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
22             video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
23             overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
24             grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
25             palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
26             gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
27             );
28              
29             1;
30