File Coverage

blib/lib/SDL/PixelFormat.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::PixelFormat;
2 26     26   161 use strict;
  26         48  
  26         691  
3 26     26   124 use warnings;
  26         44  
  26         703  
4 26     26   124 use vars qw(@ISA @EXPORT @EXPORT_OK);
  26         44  
  26         1545  
5             require Exporter;
6             require DynaLoader;
7 26     26   150 use SDL::Constants ':SDL::Video';
  26         53  
  26         5793  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 26     26   183 use SDL::Internal::Loader;
  26         58  
  26         1965  
11             internal_load_dlls(__PACKAGE__);
12              
13             our $VERSION = 2.548;
14              
15             bootstrap SDL::PixelFormat;
16              
17 26     26   201 use base 'Exporter';
  26         53  
  26         5197  
18             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
19             our %EXPORT_TAGS = (
20             all => \@EXPORT,
21             color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
22             surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
23             video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
24             overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
25             grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
26             palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
27             gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
28             );
29              
30             1;